Dim a% a = 2
For i = 1 To 3 Print f(a) Next i End Sub
Private Function f(a%) b = 0 Static c b = b + 1 c = c + 2 f = a + b + c End Function
A. 4 5 6 B. 5 7 9 C. 4 6 8 D. 4 7 9 11．下面程序的运行结果是（ A ） Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y
Print \ End Sub
Private Sub nc(ByVal a%, b%) a = a + b b = a a = a * b End Sub
A. 5 15 B. 15 15 C. 225 15 D. 5 10 12． 下列叙述中正确的是（ C ）
A. 在窗体的form_load 事件中定义的变量是全局变量 B. 局部变量的作用域可以超过所定义 的过程
C. 在某个 sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D. 在调用过程时，局部变量被初始化0 或空字符串。
13. 下列各项中，不是通用过程特点的是（ C ）
A. 通用过程不与任何特定事件相联系 B. 通用过程有用户创建 C. 通用过程可以由鼠标激发 D. 通用过程完成特定任务 14. 以下关于过程和过程参数的描述中，错误的是（ C ） A. 过程的参数可以是控件的名称
B. 用数组作为过程的参数时，使用的是“传地址方式”
C. 只有函数过程能够将过程中处理的信息传回到调用的程序中 D. sub 过程可以无参数传递
15. 下列关于sub 过程的叙述正确的是（ B ） A. 一个sub 过程必须有一个exit sub 语句 B. 一个sub 过程必须有一个end sub 语句
C. 在 sub 过程中可以定义一个function 过程 D. 可以用goto 语句强制退出 sub 过程 16. 以下叙述错误的是（ B ）
A. 用 shell 函数可以调用能够在windows 下运行的应用程序
B. 用 shell 函数可以调用可执行文件，也可以调用VB 的内部函数 C. 调用hell 函数的格式应为：〈变量名〉=shell(?) D. 用 shell 函数不可以执行DOS 命令
17. 使用过程编写程序是为了（ A ）
A. 使程序模块化 B. 提高程序的运行速度 C. 便于系统的编译 D. 使程序易于阅读 18. VB 的过程有3 种，它们是（ C ）
A. 事件过程、子过程和函数过程 B. 事件过程、属性过程和函数过程 C. 属性过程、子过程和函数过程 D. 通用过程、子过程和函数过程 19. 下列程序的运行结果是（ C ） Private Sub Form_Click() Dim a(1 To 4) As Integer
a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 p a()
For i = 1 To 4
Print Format(a(i), \ Next i Print End Sub
Private Sub p(b() As Integer) For i = 1 To 4 Step 2 b(i) = 2 * i Next i End Sub
A. 5678 B. 出错 C. 2668 D. 10121418 20. 下列带有两重过程的运行结果是（ B ） Private Sub Form_Click() Dim a%, b%, c% a = 2: b = 3: c = 4 Print p2(c, b, a) End Sub
Private Function p2(x As Integer, y As Integer, z As Integer) p2 = p1(z, y, x) + x End Function
Private Function p1(x As Integer, y As Integer, z As Integer) p1 = 2 * x + y + 3 * z End Function
A. 21 B. 23 C. 17 D. 34 （二）判断题（对的在括号内打“√”，错的在括号内打“×” ）
1. （F ）在通用过程中，要定义某参数是可变参数，在形参前要加的关键字是Optional。
2. （ F）每个过程可以有多个模块
3. （ F）在同一过程中，数组与简单变量允许同名
4. （T ）过程的定义不可以嵌套，但过程的调用可以嵌套 5. （F ）局部变量的作用域可以超出所定义的过程
6. （ F）公有变量声明的位置只能在标准模块的声明部分 7. （ T）Function 过程不能作为单独的语句加以调用。
8. （ F）调用其他模块中的过程时，被调用过程不必一定要是“共用的”（public 限定或默认）过程
9. （T ）可变参数过程中不能有可选参数。 10. （ T）直线也可以作为参数传递到子过程。
第八章
（一）选择题
1. 菜单编辑器设计的菜单控件在程序设计中的引用对象是（ D ）。
A. 菜单索引 B. 菜单标题 C. 菜单快捷键 D. 菜单名称 2. 为菜单项中某字母添加热键的方法是（ B ）。
A. 在该字母前加“-” B. 在该字母前加“& ” C. 在该字母前加“@” D. 在该字母前加“#” 3. 在菜单编辑器中定义了一个名为op 的菜单，在运行时隐藏该菜单项，使用语句（ D ）。 A. op .visible=true B. op .visible=false C. op .enabled=true D. op .enabled=false
4. 下列不能打开菜单编辑器的操作是（ A ）。
A.按 shift+Alt+M B.单击工具栏中的“菜单编辑器”按钮
C.按Ctrl+E D.执行“工具”菜单中的“菜单编辑器”命令 5. 使用菜单编辑器设计的菜单时，必须输入的项是（ C ）。 A. 索引 B.标题 C. 名称 D.快捷键 6. 下列有关子菜单的不正确说法是（ C ）。
A. 子菜单可以是分隔符 B. 菜单项只响应click 事件
C. 菜单项的默认索引号为 1 D. 每个菜单项都是一个单独的对象 7. 下列叙述不正确说法是（ D ）。 A. 下拉式菜单和弹出式菜单都用编辑器建立
B. 在多窗体程序中，每个窗体都可以建立自己的菜单系统 C. 除分隔线外，所有菜单项都能接收Click 事件
D. 如果把一个菜单项的Enabled 属性设置为 False，则该菜单项不可见。 8. 设置菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键即按下Alt 及字母O 时，能够执行Open 命令，则在菜单编辑器中设置Open 命令的方式是（ A ）。 A. 把Caption 属性设置为& Open B. 把Name 属性设置为O&pen C. 把Name 属性设置为& Open D. 把Caption 属性设置为O&pen 9. 下列有关菜单的不正确说法是（ B ）。 A. 在程序运行过程中可以增加或减少菜单项
B. 如果把一个菜单项的Enabled 属性设置为False,则可删除该菜单项 C. 弹出式菜单在菜单编辑器中设计
D. 利用控件数组可以实现菜单项的增加或减少 10. 下列叙述中错误的是（ C ）。
A. 在程序运行时，通用对话框控件是不可见的
B. 在同一个程序中，用不同的方法（如 ShowOpen 或 ShowSave 等）打开的通用对话框具不同的作用
C. 调用通用对话框控件的 ShowOpen 方法，可以直接打开在该通用对话框中指定的文件 D. 调用通用对话框控件的 ShowColor 方法，可以打开颜色对话框
11. 在用通用对话框控件建立“打开”文件对话框或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件，则正确的描述格式是（ A ）。 A. “text(.text)|(*.text)” B. “文本文件（.txt）| (.txt)” C. “text(.text)||(*.text)” D. “text(.text) (*.text)” 12. 设置菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键即按下Alt 及字母 O 时，能够执行Open 命令，则在菜单编辑器中设置Open 命令的方式是（ A ）。 A. 把Caption 属性设置为& Open B. 把Caption 属性设置为O&pen
C. 把Name 属性设置为& Open D. 把Caption 属性设置为O&pen 13. 在对象窗口中，弹出菜单只需（ D ），就会弹出来。
A. 按下鼠标右键 B. 双击鼠标左键 C. 单击鼠标左键 D. 单击鼠标右键 14. 窗体设计器的作用是（ A ）。
A. 建立用户界面 B. 存放文本、声音、图片等文件 C. 显示文字 D. 编写源程序代码 15. 下列不是菜单名称的正确解释的是（ A ）。
A. 显示在菜单项上的字符串 B. 设置菜单属性的对象 C. 引用菜单属性的对象 D. 菜单项的\变量名\ （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（T ）通用对话框可以用来制作和显示帮助对话框。 2、（F ）对话框的边框不是固定的。 3、（F ）任何时候都可以使用“工具”菜单中的“菜单编辑器”命令打开菜单编辑器。 4、（T ）通用对话框是一种ActivX 控件。 5、（T ）菜单项的增减可以通过控件数组来实现。 6、（F ）Open 对话框不仅用来选择一个文件，还可以打开、显示文件。 7、（T ）要退出对话框，一定要单击其中的某个按钮，不能通过单击对话框外部的某个地方来退出。 8、（F ）文件对话框的FileTitle 属性用于设置所选文件的路径和文件名。 9、（F ）菜单编辑器设计的下拉菜单深度不能超过2 层。 10、（T ）菜单控件没有任何方法，只有一个单击事件；每个菜单项都是一个单独的对象。
第九章
（一）选择题
1. 在窗体中添加一个文本框，然后编写如下代码： Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String char = Chr (KeyAscii)
KeyAscii = Asc(UCase(char)) Text1.Text = String(3, KeyAscii) End Sub
程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ D ） A、a B、A C、aaaa D、AAAA 2. 在窗体中添加两个文本框，其名称为别为Text1 和Text2；两个标签，其名称为别为
Label1 和 Label2。编写程序，使得程序运行后，在文本框Text2 中输入小写字母，能转换为比此字母小4 的大写字母，结果显示在文本框Text1 中。如输入“efg”，则输出结果为“ABC”，运行后如下。 能够实现上述功能的程序是（ B ）
A、Private Sub Form_Load() Show
Text1.Text = \ Text2.Text = \ Text2.SetFocus End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1.Text = Chr(KeyCode - 4) End Sub
B、Private Sub Form_Load() Show
Text1.Text = \ Text2.Text = \ Text2.SetFocus End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1.Text = Text1.Text + Chr(KeyCode - 4) End Sub
C、Private Sub Form_Load() Show
Text1.Text = \ Text2.Text = \ Text2.SetFocus End Sub
Private Sub Text2_Click(KeyCode As Integer, Shift As Integer) Text1.Text = Text1.Text + Chr(KeyCode - 4) End Sub
D、Private Sub Form_Load() Show
Text1.Text = \ Text2.Text = \ Text2.SetFocus End Sub
Private Sub Text2_Click(KeyCode As Integer, Shift As Integer) Text1.Text = Chr(KeyCode - 4) End Sub 3. 在VB 中，按下鼠标键触发事件，正确的程序段是（ A ） A、Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
…… End Sub
B、Private Sub Form_MouseUP(Button As Integer, Shift As Integer, X As Single, Y As Single)