(21) 当在滚动条内拖动滚动块时触发
A) KeyUp事件
B) KeyPress事件
C) Scroll事件
D) Change事件
解析：本题考查的是滚动条事件的应用。在Visual Basic中，与滚动条有关的事件是Scroll和Change事件。当在滚动条内拖动滚动块时触发Scroll事件；改变滚动框的位置后，将触发Change事件。Scroll事件用于跟踪滚动条中的动态变化，Change事件用于得到滚动条的最后的值。
(22) 设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
A) 2310
B) 2016
C) 1500
D) 1658
解析：在本题中，Dim b(-1 To 10, 2 To 9, 20）As Integer定义了一个三维数组，如果没有指定下界，缺省值是0，所以计算数组中的个数就容易了，表达式为：(10－(-1）+1）×(9-2+1）×(20-0+1）＝2016，所以选项B）是正确答案。
(23) 设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是
A) Alt+F2
B) BBBBB
C) 随机出几个数
D) 文本框平均内容无变化
解析：此题是有关KeyDown事件的题目，KeyDown是当一个键被按下时所产生的事件，而KeyUp是松开被按的键时产生的事件，如果要判断是否按下了某个转换键，可以用逻辑运算符And。例如：先定义了下面3个符号常量：Const Shift＝1，Const Ctrl＝2，Const Alt＝4；然后用下面的语句判断是否按下Shift、Ctrl、Alt键；
如果Shift And Shift>0 ，则按下了Shift键；
如果Shift And Ctrl >0 ，则按下了Ctrl键；
如果Shift And Alt>0 ，则按下了Alt键；
这里的Shift时KeyDown的第二个参数；此事件过程中的If后的条件语句如果为真，则是按下了Alt+F2，而本题目中是按下了Shift+F2，所以不执行Then语句，即文本框的内容无变化。
(24) 设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是
A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then PopupMenu Bs, 2
End Sub
B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs
End Sub
C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs,0
End Sub
D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs
End Sub
解析：在Visual Basic中，允许出现快捷菜单，对用户来说，提供了很大的方便，一般来说，菜单都在窗口的顶部，有时，用户需要执行菜单中的某一命令，就得把鼠标移动到窗口顶部，然后打开菜单选择命令，这对用户来说，会觉得麻烦。而快捷菜单并不需要到窗口的顶部来打开，只要单击鼠标右键，就会弹出菜单。设计快捷菜单仍然可以用Visual Basic中提供的菜单编辑器，只要把某个菜单设置成隐藏就可以了，实际上，不管是在窗口顶部菜单条上显示的菜单还是隐藏的菜单，都可以用PopupMenu方法把它们作为快捷菜单在运行时显示出来。PopupMenu方法的使用形式如下：
［对象］. PopupMenu 菜单名,标志,x,y
其中，x,y是提供菜单显示的位置；标志：指定快捷菜单的行为。
(25) 下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则
Private Sub Command1_Click()
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
CommonDialog1.Action=4
CommonDialog1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub
A) Text1的字体不发生变化
B) Text1的字体发生变化
C) Text1的字体和颜色发生变化
D) 程序出错！
解析：对话框的Cance1Error属性的作用是指示当选取"取消"按钮时是否出错，本题目中该属性为True，因此按Cnce1键后将导致程序出错，一般应该在程序中添加对错误的处理。
(26) 要将名为MyForm的窗体显示出来，正确的使用方法是
A) MyForm.Show
B) Show.MyForm
C) MyForm Load
D) MyForm Show
解析：本题考核窗体处理时的使用方法或语句的格式。Visual Basic中方法和语句的书写格式不同。
方法的格式为：对象.方法
语句的格式为：语句 对象名
使用方法要先写对象名，要用"."运算符；使用语句要先写语句，语句后要空一格，后跟对象名。
