X As Single, Y As Single) If Shift = 3 And Button = 2 Then Print \ End If End Sub
运行时，为了在窗体上输出\，应执行的操作为（D ）。 A 按下Shift键和鼠标左键
B 同时按下Shift、Alt键和鼠标左键 C 按下Alt键和鼠标右键
D 同时按下Shift、Ctrl键和鼠标右键
31413 当控件失去焦点时，触发的事件是（ ）。 C
A GotFocus B SetFocus C LostFocus D MoveFocus 31414 当文本框的TabStop属性设为False时，下列叙述正确的是（ ）。 D A 该文本框无法获得焦点 B 无法在该文本框中输入文本
C 焦点将始终停留在该文本框上 D 该文本框无法通过使用Tab键获得焦点 31415 使用（ ）语句可使窗体的鼠标指针呈现“沙漏”型。 D A Me.MousePointer = vbArrow B Me.MousePointer = vbCustom C Me.MousePointer = vbCross D Me.MousePointer = vbHourglass
31416 在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是（ A ）。
A Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii〈65 Or KeyAscii > 90 Then MsgBox \请输入大写字母\ KeyAscii = 0 End If End Sub
B Private Sub Text1_Change( )
If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then MsgBox \请输入大写字母\ KeyCode = 0 End If End Sub
C Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
As Single)
If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then MsgBox \请输入大写字母\ End If End Sub
D Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode〈65 Or KeyCode > 90 Then MsgBox \请输入大写字母\
25
KeyCode = 0 End If End Sub
31417 运行时单击窗体，以下事件发生的次序是（ B ）。
A MouseDown、Click、MouseUp B MouseDown、MouseUp、Click C Click、MouseDown、MouseUp D 随机发生
31418 窗体上有一个文本框控件Text1，编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc(\ KeyAscii = 0 End If End Sub
运行时，关于Text1说法正确的是（ A ）。
A 只能向Text1中输入数字字符（0～9）
B 只能向Text1中输入ASCII码在0～9之间的字符 C 只能向Text1中输入非数字字符 D Text1不接受任何输入 31419 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
X As Single, Y As Single)
If Shift = vbShiftMask + vbCtrlMask And Button = vbRightButton Then Print \ End If End Sub
运行时，为了在窗体上输出\，应执行的操作为（ D ）。
A 按下Shift键和鼠标左键 B 同时按下Shift、Alt键和鼠标左键 C 按下Alt键和鼠标右键 D 同时按下Shift、Ctrl键和鼠标右键
31420 在程序运行时，按Tab键跳过了一个可以获得焦点的控件(如文本框),这可能是因 为（D）。
A) 该控件的Enabled属性为True B) 该控件的Enabled属性为False C) 该控件的TabStop属性为True D) 该控件的TabStop属性为False
31421 对文本框Text1编写如下的事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String x = Chr(KeyAscii)
KeyAscii = Asc(UCase(x)) Print String(4, KeyAscii) End Sub
程序运行后，将焦点位于文本框，如果在键盘上输入字母\，则窗体上显示的内容
26
是（C）。
A) A B) B C) AAAA D) aaaa
31501 下列求两数中最小数的程序段不正确的是（ D）。
A If x < y Then Min = x Else Min = y B Min = IIf(x < y，x，y)
C Min = x : If y < = x Then Min = y D If y < = x Then Min = y : Min = x 31502 下列程序段的执行结果是（ B）。 x = 3 : y = 5 : z = 9 x = x + y y = x - y
If x - y > z - x Then z = x + y If x + y > z - y Then x = z + y Print x, y, z
A 3 5 9 B 14 3 11 C 8 3 11 D 8 5 9
31503 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Sum = 0
For m = 1 To 3 Select Case m Case 1 a = 1 Case 2 a = 2 Case 3 a = 3 End Select Print a,
Sum = Sum + a Next m Print Sum End Sub
运行时，单击按钮，输出结果是（D ）。 A 3 3 3 9 B 3 2 1 6 C 1 1 1 3 D 1 2 3 6
31504 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 80: b = 50: c = 30
If a < b Or b > c Then b = c
If b = c And a < c Then a = a - 30 If a = b And b > c Then c = a + b Print a, b, c End Sub
27
运行时，单击按钮，窗体输出的结果是（B ）。 A 80 50 30 B 80 30 30 C 50 30 80 D 50 30 30
31505 执行下列程序段后，x的值是（C ）。 n = 5: x = 1: i = 1 Do
x = x * i i = i + 1
Loop While i < n A 10 B 15 C 24 D 120
31506 执行下列程序段后，窗体输出的结果是（B ）。 Dim a As Integer
a = Val(InputBox(\请输入a的值\ '直接按回车键 Select Case a Case 1 To 4 Print \ Case Is > 3 Print \ Case 5 To 10 Print \ Case Else Print \ End Select
A A B B C C D D
31507 执行下列语句后，x的值是（A ）。 a = 3
x = IIf(a > 5, int(-5.6), Fix(5.6)) A 5 B -5 C 6 D -6
31508 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click()
a = Val(InputBox(\请输入分数：\计算你的等级\ If a < 0 Or a > 100 Then Print \输入错误\ ElseIf a < 60 Then Print \不合格\ ElseIf a < 80 Then Print \合格\ Else
28