内容发布更新时间 : 2025/9/19 8:13:04星期一 下面是文章的全部内容请认真阅读。
41、当用户单击滚动条的空白处时，滑块移动的增量值由（ B ）属性决定。 A、 SmallChange B、 LargeChange C、 Min D、 Max
42、当控件失去焦点时，触发的事件是（C ）。
A、 GotFocus
B、 SetFocus C、 LostFocus D、 MoveFocus
43、当文本框的TabStop属性设为False时，下列叙述正确的是（D ）。
A、 该文本框无法获得焦点
B、 无法在该文本框中输入文本 C、 焦点将始终停留在该文本框上
D、 该文本框无法通过使用Tab键获得焦点
44、使用（D ）语句可使窗体的鼠标指针呈现“沙漏”型。
A、 Me.MousePointer = vbArrow B、 Me.MousePointer = vbCustom C、 Me.MousePointer = vbCross D、 Me.MousePointer = vbHourglass 45、在程序运行时，按Tab键跳过了一个可以获得焦点的控件(如文本框),这可能是因为（D）。
A、 该控件的Enabled属性为True B、 该控件的Enabled属性为False C、 该控件的TabStop属性为True D、 该控件的TabStop属性为False
46、执行下列程序段后，窗体输出的结果是（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
47、窗体上有一个命令按钮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
48、下列程序段的执行结果是（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 End Select Print y
A、 25 B、 75 C、 50 D、 14
49、下列程序段的执行结果是（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
50、运行下列程序，单击窗体后输出结果是（B ）。
Private Sub Form_Click() Dim i%, j%, k% i = 1: j = 1: k = 10 Do While i <= k j = j + 2 i = i + 2 Loop Print j
End Sub A、 9 B、 11 C、 13 D、 21
51、窗体上有一个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click() Dim i%, j% For i = 1 To 3 For j = 0 To i Print Chr$(48 + i); Next j Print Next i End Sub
运行时，单击按钮，输出结果是（C ）。
A、 123 B、 1 22 333 C、 11 222 3333 D、 0 11 222 3333
52、窗体上有文本框Text1和命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, x% For i = 1 To 100 i = i + 2 x = x + 2
If i > 10 Then Exit For Next i
Text1.Text = Str$(x) End Sub
运行后，单击按钮，Text1显示（B ）。 A、 6
B、 8 C、 10 D、 100
53、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 1
For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a
End Sub
运行时，单击命令按钮，窗体上将显示（ C ）。
A、 3 B、 4 C、 5 D、 6
54、设有以下程序段： For i = 1 To 4
For j = 6 To 1 Step -1 Print i * j Next j, i
则语句Print i * j的执行次数是（ C ）
A、 12 B、 13 C、 24 D、 25
55、下列程序段的执行结果是（B）。
For i = 3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print \ Next j Print Next i
A、 *
*** ***** B、 *****
*** * C、 *****
*** *
D、 *****
*** *
56、在通用声明中给出Option Base 1语句，则数组a包含（ C）个元素。 Dim a(3, -2 To 1, 5)
A、 120 B、 75 C、 60 D、 13
57、运行下列程序，单击窗体后输出的结果是（B ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub
A、 15 B、 48 C、 120 D、 720
58、对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer