VB模拟试题
一、选择题（15分，每题1分）
1、VB集成开发环境共有三种模式，以下 __________ 三种模式是正确？
(A) 设计、运行、退出 (B)运行、中断、退出
(C) 设计、运行、中断 (D)运行、中断、结束
2、以下叙述中错误的是__________
(A) 事件过程是响应特定事件的一段程序
(B) 不同的对象可以具有相同名称的方法
(C) 对象的方法是执行指定操作的过程
(D) 对象事件的名称可以由编程者指定
3、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 __________
(A) 如果工程中含有Sub Main过程，则程序一定首先执行该过程
(B) 不能把含有Sub Main过程的标准模块设置为启动模块
(C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
(D) 任何时刻最多只有一个窗体是活动窗体
4、下列说法哪种正确？每次调用过程时，__________
(A) Dim声明的变量可保持原值；Static声明的变量会重新初始化。
(B) Static声明的变量可保持原值；Dim声明的变量会重新初始化。
(C) Dim、Static声明的变量都可以保持原来的值。
(D) Dim、Static声明的变量都会重新初始化。
5、表达式 5 Mod 3+3\5*2的值是__________
(A) 0 (B) 2 (C) 4 (D) 6
6、从字符串N的第5个字符开始，获取4个字符，应使用 _________。
(A) Len(N,5,4) (B) Mid(N,5,4)
(C) Right(N,5,4) (D) Rtrim(N,5,4)
7、InputBox函数返回值的类型为 _________。
(A) 数值 (B) 字符串
(C) 变体 (D) 数值或字符串（视输入的数据而定）
8、语句Dim A(3, -2 to 2, 5)声明的数组A包含_________个数组元素。
(A) 120 (B) 75 (C) 60 (D) 13
9、执行下面的程序段后，x 的值为_________。
x=0
For i=1 To 10 Step 3
x=x+i
Next i
(A) 10 (B) 12 (C) 22 (D) 30
10、以下叙述中正确的是_________。
(A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
(B) 窗体的Name属性的值是显示在窗体标题栏中的文本
(C) 可以在运行期间改变对象的Name属性的值
(D) 对象的Name属性值可以为空
11、使文本框的ScrollBar(滚动条)属性有效，应将_________ 属性设置为True？
(A) Text (B) MutiLine (C) Alignment (D) WordWarp
12、下列属性中，图像框（Image）没有_________ 属性。
(A) Stretch (B) Autosize (C) Visible (D) Picture
13、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是_________
(A) Combo1.RemoveItem Text
(B) Combo1.RemoveItem 2
(C) Combo1.RemoveItem 3
(D) Combo1.RemoveItem Combo1.Listcount
14、以下叙述中错误的是_________
(A) 下拉式菜单和弹出式菜单都用菜单编辑器建立
(B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统
(C) 除分隔线外，所有菜单项都能接收Click事件
(D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
15、以下关于文件的叙述中，错误的是
(A) 顺序文件中的记录一个接一个地顺序存放
(B) 随机文件中记录的长度是随机的
(C) Put是随机文件的写语句
(D) EOF函数可用于判断顺序文件的结束
二、填空题（10分，每空1分）
1、为使一个控件运行时看不见，应将该控件的_________ 属性设置为_________ 。
2、为使加入到列表框的数据自动排序，应设置该控件的_________ 属性为_________ 。
3、当单击滚动条的箭头时，滚动条的值增（或减）5，则该控件的________ 属性为
_________ 。
4、为使计时器控件Timer1每隔0.5秒触发一次Timer事件，应设置该控件的 _________ 属
性为 _________ 。
5、图片框的作用是_________ 和 _________ 。
三、按指定要求编写程序段（13分，第1题6分，第2题7分）
1、用Do…Loop语句，编写计算1!＋2!＋…＋10! 的程序段。
2、从键盘输入100个学生的考试分数，输出其中的最高分和最低分。
四、写出下列事件过程的执行结果（18分，每题6分）
1、Private Sub Form_Click()
Const n = 3
Dim i As Integer
Dim f1 As Long, f2 As Long
f2 = 468: f1 = 135
For i = 1 To n
Print "f" & 2 * i - 1; "="; f2,
Print "f" & 2 * i; "="; f1
f2 = f2 - f1
f1 = f1 - f2
Next i
End Sub
2、Private Sub Form_click()
Dim x As Integer, y As Integer, z As Integer
x = 2008: y = 2
For z = 1 To 3
Print "main:"; z, x, y
Call test1(x, y)
Next z
End Sub
Private Sub test1(ByVal x As Integer, y As Integer)
Static z As Integer
