C．If A < B Then A=5 D．If A < B Then A=5 Else A=-5
A = 5 Print A
Print A
6、下列程序段的执行结果为：＿＿＿＿。 X = 8 Y = -5
If Not X > 0 Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X
A．13 -3 B．5 -8 C．-3 3 7、下列程序段的执行结果为：＿＿＿。 A = 85
If A > 60 Then I = 1 If A > 70 Then I = 2 If A > 80 Then I = 3 If A > 90 Then I = 4 Print \
A．I=1 B．I=2 C．I=3 D．I=4 8、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click() A = 2: B = 1 Select Case A Case 1
Select Case B Case 0
Print \ Case 1
Print \ End Select Case 2
Print \ End Select
33
D．25 -25 End Sub
A．**** B．#### C．@@@@ D．**** #### 9、下列程序段的执行结果为：＿＿＿。 Y = Int(Rnd(3) + 2) Select Case Y Case 5
Print \Case 4
Print \Case 3 Print \Case Else Print \End Select
A．***** B．**** C．*** 10、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click() X = 8
For K = 1 To -1 Step -3 X = X + K Next K Print K; X End Sub
A．-2 9 B．-2 8 C．1 11、下列程序段的执行结果为：＿＿＿。 X = 1: Y = 2 For I = 1 To 3 F = X + Y X = Y Y = F Print F;
34
D．* 8 D．19 Next I
A．-3 5 8 B．3 3 3 C．5 8 13 D．3 5 5 12、下列程序段的执行结果为：＿＿＿。 I = 2: A = 6 Do
I = I + 1 A = A - 1 Loop Until I >= 5 Print \Print \
A．I=5 B．I=6 C．I=5 D．I=6 A=3 A=2 A=2 A=3 13、下列程序段的执行结果为：＿＿＿。 a = 1: b = 0 Do
a = a + b b = b + 1 Loop While b < 5 Print a; b
A．11 5 B．16 6 C．a b D．10 30 14、假定有以下循环结构 Do Until 条件 循环语句 Loop
则正确的描述是：＿＿＿。
A．如果“条件”是一个为0的常数，则至少执行一次循环体。 B．如果“条件”是一个为0的常数，则一次循环体也不执行。 C．如果“条件”是一个不为0的常数，则至少执行一次循环体。 D．不论“条件”是否为“真”，至少要执行一次循环体。 15、假定有以下程序段： For i = 1 To 2
For j = 3 To 1 Step -1
35
Print i * j Next j, i
则语句Print i * j执行的次数是：＿＿＿。 A．5 B．6 C．7 D．8 16、下列程序段的执行结果为：＿＿＿。 a = 1: b = 4 Do Until Y > 4 Y = a * b b = b + 1 Loop Print a
A．1 B．4 C．8 D．20 17、下列程序段的执行结果为：＿＿＿。 a = 0 While a <= 2 a = a + 1 Print a Wend
A．3 B．1 C．1 D．1 2 2 2 3 3 4 18、有下列程序段 a = 1 Do
a = a + 2 Print a
Loop Until ＿＿＿＿
程序运行后，要求执行4次循环体，空白处应该填写的语句是：＿＿＿。 A．A>9 B．a<9 C．A>=9 D．a<=9
19、下列程序段的循环次数是：＿＿＿，执行结果是：＿＿＿。 a = 1
36
Do While a <= 10 a = a + 1 Loop Print a
A．11 11 B．10 10 C．10 11 D．11 10 20、在窗体上绘制一个命令按钮，然后编写如下事件过程： s = 0 For i = 1 To 2 For j = 1 To 4
If j Mod 2 <> 0 Then s = s + 1 End If s = s + 1 Next j Next i Print s
程序执行后，单击命令按钮，输出结果是：＿＿＿。 A．10 B．11 C．12 D．13
二、填空题
1、单击使命按钮执行以下程序，在弹出的对话框中输入10，单击“确定”后，在窗体上输出＿＿＿。
Private Sub Command1_Click() Dim X As Single, Y As Integer X = InputBox(\输入一个数\ X = CInt(X) Select Case X Case Is <= 1 Y = 1 Case Is <= 15 Y = X * 3 + 1 Case Is <= 20 Y = X ^ 2
37