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 T