VB模拟试题

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