高级语言程序设计（VB） 试卷（A卷）
注意事项：1、本试卷共 页，满分为 100 分，考试时间为 110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢
笔或圆珠笔，不得使用红颜色墨水笔。
分数核题 目 得 分 一 二 三 四 五 总 分 对 阅卷人 读卡 一、单项选择题（每空1分，共 30分）
（请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为 【1】 。 A) 工程文件
B) 窗体文件
C) 类模块文D) 标准模块件
文件
2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，
打开的窗口是 【2】 。 A) 代码窗口 C) 属性窗口
B) 窗体设计窗口 D) 工程资源管理器窗口
3．设有变量定义语句Dim a%，则变量a的数据类型是 【3】 。 A) 整型
B) 单精度类C) 双精度类D) 字符串类型
型
型
4．下列表达式中，值为False的是 【4】 。 A) \C) \
B) \D)
Mid(\
5．函数InStr(\的值是 【5】 。 A) 2
B) 3
C) True
D) CDEF
6．下列程序运行后，单击窗体，输出结果是 【6】 。 Private Sub Form_Click()
Dim a As Integer, b As Integer a = 3 b = 5
Print a + b; a & b End Sub A) 8 8
B) 35 35
C) 8 35
D) 35 8
7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7
a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3
B) 7 3
C) 3 7
D) 10 7
8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) x???1(a?b且c?d)
?2(a?b且c?d)?1(a?b且c?d)
2(a?b)?B) x???1(a?b且c?d)
?2(a?b且c?d)?1(a?b且c?d)
2(c?d)?C) x??D) x??9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do
s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15
B) 10
C) 1
D) 0
10．下列程序段的输出结果是 【10】 。
For k = 4 To 2 Step -2 m = k Next k
Print m; k; A) 2 2
B) 2 0
C) 2 1
D) 0 0
11．用下面的语句定义数组，则数组中的元素个数是 【11】 个。 Option Base 1
Dim A(-1 To 2，5) As Integer A) 5
B) 10
C) 15
12．下面程序段的输出结果是 【12】 。
Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next k
For k = 1 To 4 Step 2 s = s + a(k) Print s; Next k A) 8
B) 20
C) 2 8
13．设有如下的用户自定义类型
Private Type Stu name As String * 10 age As Integer End Type
D) 20
D) 2 20
6 12 则以下正确引用该类型成员的代码是 【13】 。 A) Stu.name=\
B) Dim s As Stu s.name = \
C) Dim s As Type Stu s.name = \
D) Dim s As Type s.name = \
14．用“ 【14】 ”关键字声明的变量称为全局变量。 A) Private
B) Public
C) Dim
D) Static
15．在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示
的却是***，可能的原因是该文本框的 【15】 属性值已经被设置为\。 A) Font
B) Text
C) Name
D)
PasswordChar
16．在VB 6.0中，Print是对象的 【16】 。 A) 属性
B) 方法
C) 事件
D) 名称
17．在VB 6.0中，要判断复选框是否为选中状态，使用的属性是 【17】 。 A) Caption
B) Checked
C) Selected
D) Value
示。则
18．设列表框List1中共有3个列表项，如右图所
下列语句中，能够删除最后一个列表项的是 【18】 。
A) List1.RemoveItem 2 B) List1.RemoveItem \项目C\
VB期末试卷A卷带答案
