Case 1, 3, Is ＞ 5 Print \ End Select
2. 假定有以下循环结构 Do Until条件 循环体 Loop
则正确的描述是 (B)
A.如果\条件\是一个为0的常数，则一次循环体也不执行
B.如果\条件\是一个为0的常数，则无限次执行循环体
C.如果\条件\是一个不为0的常数，则至少执行一次循环体
D.不论\条件\是否为\真\，至少要执行一次循环体
3.假定有以下程序段 For i = 1 To 3
For j = 5 To 1 Step - 1 Print i * j Next j, i
则语句Print i*j的执行次数是 (A) A.15 B.16 C.17
D.18
4.以下程序段的输出结果为 x=1
y=4
Do Until y ＞ 4 x=x*y y=y+1 Loop
Print x (B) A.1
B.4 C.8 D.20
5.设a=6，则执行
x=IIf(a＞5，-1，0) 后，x的值为(D) A.5 B.6 C.0
D.-1
6. 执行下面的程序段后，x的值为 x=5
For i = 1 To 20 Step 2 x=x+i\\5 Next i (A) A.21 B.22 C.23
D.24
7. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() For i= 1 To4 x=4 For j = 1 To 3 x=3
For k= 1 To 2 x=x+6 Next k Nextj Next i Print x
End Sub
程序运行后，单击命令按钮，输出结果是 (B) A.7 B.15
C.157 D.538
8. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() x=0
VB高教版同步练习 第 13 页 / 共 45页
Do Until x = -1
a=InputBox(\请输入 A的值\ a=Val(a)
b=InputBox(\请输入B的值\ b=Val(b)
x=InputBox(\请输入x的值\ x = Val(x) a=a+b+x Loop Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 (A) A.2 B.3 C.14
D.15
9.阅读下面的程序段： For i=1 To 3
For j = 1 To i
Fork =j To 3 a=a+1 Next k Next j
Next i
执行上面的三重循环后，a的值为 （C） A.3 B.9 C.14
D.21
10. 在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= \ Text1.SetFocus For i=1 To 10
Sum = Sum + i Next i
Text1.Text = Sum End Sub
上述程序的运行结果是 （C） A.在文本框Text1中输出55 B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
11.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click() x=0
Do While x ＜ 50 x=(x+2)*(x+3) n=n+1 Loop
Text1.Text = Str(n) Text2.Text = Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 (B) A.1和0 B.2和72 C.3和50
D.4和168
12.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I= 1 To 4
For J = 0 To I
Print Chr$(65 + I); Next J Print Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A) A. BB
VB高教版同步练习 第 14 页 / 共 45页
CCC DDDD EEEEE B. A BB CCC DDDD C. B CC DDD EEEE D. AA BBB CCCC
DDDDD
13.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i= 1 To3
For j = 1 To 3
a(i, j) = (i - 1) * 3 +j
Print a(i, j); Next j Print Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是 (D)
A. 1 2 3 2 4 6 3 6 9 B. 2 3 4 3 4 5 4 5 6 C. 1 4 7 2 5 8
3 6 9 D. 1 2 3 4 5 6 7 8 9 14.设有函数
r= 1 x＜0 2 x＞=0
则下列能正确计算该函数值的语句是 (D) A. If x＜0 Then r = 1 ElseIf x＞=0 Then r=2 End If
B.If x ＜ 0 Then r = 1
ElseIf (x ＞= 0) Then r=2 Else r = 1 End If
C.print(IIf(x＞0,1,2)) D. r = IIf(x＜0,1,2)
15.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程 Private Sub Form_Click() x= -5:s= -5 Select Case s
Case Is ＞ 0 y=x+1 Case Is ＞= 0 y=x+2 Case Else y=x+3 End Select Label 1.Caption = x
Label2.Caption = y End Sub
程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 (A) A.-5 和 -2 B.-5 和 -4 C.-5 和 -3 D.-5 和 -5
VB高教版同步练习 第 15 页 / 共 45页
二、填空题：
1．执行下面的程序段后，s的值为 9 。 s=5
For i = 2.6 To 4.9 Step 0.6 s=s+1
Next i
2．以下程序段的输出结果是 1 2
3 。 num = 0
While num ＜= 2 num= hum + 1 Print hum
Wend
3．以下程序段所对应的函数表达式是 x = InputBox(\x = CInt(x) Select Case x Case Is ＜= 0 y=0
Case Is ＜= 10 y=5+2*x Case Is ＜= 15 y=x-5
Case Is ＞ 15 y=0
End Select
4．设有以下的循环： x=1 Do
x=x+2 Print x
Loop Until x>=7 程序运行后，要求执行3次循环体，请填空。
5．阅读以下程序： Private Sub Form_Click() Dim k, n, rn As Integer
n=10 m=1
k=1
Do While k ＜= n m=m*2 k=k+1 Loop Print m
End Sub
程序运行后，单击窗体，输出结果为 1024 。
6．以下循环的执行次数是 11 。 k=0
Do While k ＜= 10 k=k+1 Loop
7．阅读程序： Private Sub Form_Click() num = 0 Do
num= num+ 1 Print num
Loop Until num＞ 2
End Sub
程序运行后，单击窗体，输出结果是 1 2
3
8．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() a=0
For i = 1 To 2
For j = 1 To 4
If j Mod 2 ＜＞ 0 Then a=a+1 End If a=a+1 Next j
VB高教版同步练习 第 16 页 / 共 45页
相关推荐：
loading