Print \优秀\ End If End Sub
运行时，单击按钮，在输入对话框中直接回车，输出结果为（ C）。 A 输入错误B 不合格C 合格D 优秀
31509 如果x小于y的平方，则在窗体上输出“OK”。完成该要求的单行条件语句是（C ）。
A If x < y ^ 2 Then \ B If x < y ^ 2 Then Show \C If x < y ^ 2 Then Print \ D If x < y ^ 2 Then Put \31510 有如下程序段： Dim s%, t%, a%, b% s = 1: t = 1 a = Text1.Text b = Text2.Text
If a > 0 Then s = s + 1 If a > b Then t = t + s Else
If a = b Then t = 5 Else
t = 2 * s End If End If Print t End Sub
要使程序输出结果为4，则a和b应满足的条件是（ A）。 A a>0 And a0 And a>b D a<0 And a>b 31511 以下条件语句错误的是（D）。 A If X Then Y = Y + 1 B If X = 0 Then Y = 0
C If X > 0 Then Y = 1: Print Y D If X > Y Then Print Y :End If
31512 有语句If X = 0 Then Y = 0，下列叙述中，正确的是（C ）。 A X=0和Y=0均为赋值语句 B X=0和Y=0均为关系表达式
C X=0为关系表达式，Y=0为赋值语句 D X=0为赋值语句，Y=0为关系表达式 31513 下列程序段的执行结果是（ ）。 A x = 100: y = 80: z = 30 If x > y Or y < z Then y = z If y = z And x > z Then x = x - z
29
Print x, y, z
A 70 30 30 B 100 30 30 C 70 80 30 D 100 80 30
31514 执行下列程序段后，窗体输出的结果是（ ）。 A Dim X As Integer, Y As Integer
Y = Val(InputBox(\请输入a的值\ '直接按回车键 Select Case Y Case Is < 10 x = x + 1
Case 5, 7, 9, 11 x = x + 2 Case 5 To 15 x = x + 3 Case Else x = x + 4 End Select Print x
A 1 B 2 C 5 D 6
31515 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim a%, b% a = 6: b = -1
If a < 0 Or b < 0 Then a = b
ElseIf a > 0 Then a = a + b
ElseIf a < 0 And b < 0 Then b = a Else
b = a * b End If Print a, b End Sub
运行时，单击按钮，窗体输出的结果为（ ）。 D A 6 6 B 5 -1 C 6 -6 D -1 -1
31516 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x = -5
If Sgn(x) Then y = Sgn(x ^ 2) Else
y = Sgn(x) End If
30
Print y End Sub
程序运行后,单击命令按钮,窗体上显示的是（ C ）。 A -5 B 25 C 1 D -1
31517 下列程序段是求两个数中的最大数，其中不正确的是（ D ）。 A If a < b Then Max = b Else Max = a B Max = IIf(a > b，a，b)
C Max = a : If b > = a Then Max = b D If b > = a Then Max = b : Max = a
31518 窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() i = Text1.Text Select Case i Case 1: j = \ Case 2: j = \ Case 3: j = \
Case Else: j = \非法\ End Select Text1.Text = j End Sub
运行时，在Text1中输入4后单击命令按钮，Text1中内容是（ D ）。
A + B - C * D 非法
31519 窗体上有一个命令按钮Command1，编写下列事件过程： Private Sub Command1_Click() x = InputBox(x)
If x ^ 2 = 16 Then y = x If x ^ 2 < 16 Then y = 1 / x If x ^ 2 > 16 Then y = x ^ 2 + 1 Print y End Sub
运行时，单击按钮，在输入框中输入6后回车，窗体上将显示（ C ）。
A 6 B 0.16666 C 37 D 65 31520 下列程序段的执行结果是（C）。 Dim x As Double Dim y As Double x = Int(42 \\ 4) + 3 Select Case x Case Is < 3 y = x + 1 Case Is < 12 y = 2 * x + 5 Case Else
y = 3 * x + 11
31
End Select Print y
A) 25 B) 75 C) 50 D) 14 31521 下列程序段的执行结果是（C）。 x = 5: y = 7: z = 4 If x < y Then
t = x: x = y: y = t End If
If y < z Then
t = y: y = z: z = t If x < y Then
t = x: x = y: y = t End If End If
Print x, y, z
A) 5 7 4 B) 4 5 7 C) 7 5 4 D) 5 4 7
31601 已知字母D的ASCII码是68。在窗体上添加命令按钮Command1，并编写如下事件过程：
Private Sub Command1_Click() m = 68: a = \ Print a
For i = ()'循环次数的控制 m = m + 1
a = Chr(m) + a + Chr(m)
运行时要使单击按钮后输出如下结果，程序中空缺的部分应为 （B）
D
EDE FEDEF GFEDEFG
A 1 To 4 B 1 To 3 C 1 To 4 step 2 D 1 To 3 step 2
31602 阅读下列程序段： x = 0
For i = 1 To 4 For j = 1 To i x = x + 1 Next j, i
执行以上循环后，x 的值为（C ）。 A 6 B 9 C 10 D 16
31603 运行下列程序，单击窗体后输出的结果是（D ）。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2
32