(答案：D)
31302. 将框架的（ ）属性设为False，可使框架内的所有对象在运行时均不可操作。 (A) Enabled (B) Visible
(C) BorderSytle (D) ClipControls (答案：A)
31303. 拖动滚动条中的滑块将触发滚动条的（ ）事件。 (A) Slide (B) Scroll
(C) DragOver (D) DragDrop (答桠 ?：B)
31304. 下列叙述错误的是（ ）。
(A) 计时器的Enabled属性为False，会暂停计时器的计时操作 (B) 运行时计时器不可见，所以其位置和大小无关紧要 (C) 触发计时器Timer事件的时间间隔可人为设定 (D) 计时器的Interval属性以秒为单位 (答案：D)
31305. 用（ ）分隔同一窗体中的多组单选按钮，使它们互不干扰。 (A) 框架 (B) 组合框 (C) 复选框 (D) 列表框 (答案：A)
31306. 单击滚动条两端的箭头可触发滚动条的（ ）事件。 (A) Change (B) Scroll
(C) DragOver (D) ItemCheck (答案：A)
31307. 设置（ ）属性可改变单击滚动条两端箭头时的滚动步长。 (A) Max (B) Min
(C) LargeChange (D) SmallChange (答案：D)
31308. 将框架的（ ）属性设为False，可使框架内的所有对象在运行时均不可见。 (A) Enabled (B) Visible
(C) BorderSytle (D) ClipControls (答案：B)
31309. 计时器控件能正常工作应具备的两个条件是（ ）? ??
(A) Enabled属性为True和Interval属性为0 (B) Enabled属性为False和Interval属性为0 (C) Enabled属性为True和Interval属性非0 (D) Enabled属性为False和Interval属性非0 (答案：C)
31401. 使用（ ）方法将焦点移到某个控件上。 (A) SetFocus (B) GotFocus (C) Move (D) Refresh (答案：A)
31402. 文本框获得焦点时，能触发KeyPress事件的操作是（ ）。 (A) 选定文本框中内容 (B) 双击文本框
(C) 按下键盘上的某个键 (D) 单击文本框 (答案：C)
31403. 下列叙述错误的是（ ）。 (A) 所有的控件均支持Tab顺序 (B) 可以在设计阶段改变Tab顺序 (C) 可以在运行阶段改变Tab顺序
(D) 可以设置相应的属性使Tab顺序不起作用 (答案：A)
31404. 下列描述正确的是（ ）。
(A) 不同控件的TabIndex属性可以相同
(B) 同一窗体中不同控件的TabIndex属性值可以任意设置 (C) 窗体、命令按钮、标签和文本框控件都有TabIndex属性 (D) 窗体上控件的TabIndex属性堠 ??必须小于该窗体的控件个数 (答案：D)
31405. 对文本框Text1编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim b As String b = Chr(KeyAscii)
KeyAscii = Asc(UCase(b)) End Sub
运行时，下列叙述正确的是（ ）。 (A) Text1中无法输入字符 (B) Text1中内容为\
(C) Text1中输入的字符都变为大写
(D) Text1中输入的字符都被转换成ASCII码 (答案：C)
31406. 下列叙述错误的是（ ）。
(A) 在KeyDown事件中，键盘上输入的A或a被视作相同的字母
(B) 在KeyUp事件中，键盘上的\和右侧小键盘上的\视作不同的数字
(C) 只有获得焦点的对象才能够接受键盘事件
(D) KeyPress事件中可以识别键盘上某个键的按下与释放 (答案：D)
31407. 下列叙述错误的是（ ）。
(A) 如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 (B) 文本框的Enabled属性为False时，其Tab顺序不起作用 (C) 文本框失去焦点时，触发LostFoc us事件 (D) 可以用TabIndex属性改变Tab顺序 (答案：A)
31408. 设置控件的（ ）属性为False，使该控件不能通过Tab键得到焦点。(B) SetFocus (C) TabStop (D) TabIndex (答案：C)
31409. 要使用自定义的鼠标指针，必须将MousePointer属性设置为（ ）。 (A) 0 (B) 15 (C) 3 (D) 99
(答案：D)
31501. 下列求两数中最小数的程序段不正确的是（ ）。 (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 (答案：D)
31502. 下列程序段的执行结果是（ ）。 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 (答案：B)
31503. 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Sum = 0
For m = 1 To 3 Select Case m Case 1
(A) GotFocus a = 1 Case 2 a = 2 Case 3 a = 3
End Select Print a,
Sum = S um + a Next m Print Sum End Sub
运行时，单击按钮，输出结果是（ ）。 (A) 3 3 3 9 (B) 3 2 1 6 (C) 1 1 1 3 (D) 1 2 3 6 (答案：D)
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
运行时，单击按钮，窗体输出的结果是（ ）。 (A) 80 50 30 (B) 80 30 30 (C) 50 30 80 (D) 50 30 30 (答案：B)
31505. 执行下列程序段后，x的值是（ ）。 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 (答案：C)
31506. 执行下列程序段后，窗体输出的结果是（ ）。 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
(答案：B)
31507. 执行下列语句后，x的值是? ?? ）。 a = 3
x = IIf(a > 5, int(-5.6), Fix(5.6)) (A) 5 (B) -5 (C) 6 (D) -6
(答案：A)
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
Print \优秀\End If End Sub
运行时，单击按钮，在输入对话框中直接回车，输出结果为（ ）。 (A) 输入错误 (B) 不合格 (C) 合格 (D) 优秀 (答案：C)
31509. 如果x小于y的平方，则在窗体上输出\。完成该要求的单行条件语句是（ ）。