天津工业大学201 0 ～201 1 学年第 2 学期
高级语言程序设计（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) \
B) \
C) \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 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 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)
B) x???1(a?b且c?d)?2(a?b且c?d)
C) x???1(a?b且c?d)?2(a?b)
D) x???1(a?b且c?d)?2(c?d)
9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do
s = s + k: k = k + 1 Loop Until k <= 5
8
7
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
D) 20
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
D) 2 6 12 13．设有如下的用户自定义类型
Private Type Stu
name As String * 10 age As Integer End Type
则以下正确引用该类型成员的代码是 【13】 。
A) Stu.name=\
B) Dim s As Stu s.name = \
C) Dim s As Type Stu D) Dim s As Type s.name = \ s.name = \14．用“ 【14】 ”关键字声明的变量称为全局变量。 A) Private
B) Public
C) Dim
D) Static
20
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\C) List1.RemoveItem List1. Listcount D) List1.RemoveItem List1. ListIndex
19．组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种
类型是由 【19】 属性设置的。 A) Style
B) FillStyle
C) BackStyle
D) BorderStyle
20．用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增
加或减少的值，是由 【20】 属性决定的。 A) Min
B) Max
C) SmallChange
D) LargeChange
21．将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是 【21】 。 A) Me.Picture=b.jpg C) Me.Picture=\
B) Me.Picture= LoadPicture(b.jpg) D) Me.Picture= LoadPicture(\
22．要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 【22】 。 A) 先放置一个框架，然后在框架中放置两个单选按钮
B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上 C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内 D) 以上三种方法都正确
23．计时器控件能够响应的事件是 【23】 。 A) Load
B) Click
C) Change
D) Timer
24．要使命令按钮处于无效状态，可以设置按钮的 【24】 属性值为False。 A) Caption
B) Enabled
C) Style
D) Visible
25．如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 【25】 。 A) 第一个标准模块 C) 设计时的第一个窗体
B) 最后一个被添加的窗体 D) 最后一个被添加的标准模块
26．在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，
使框中的图片能够自动适应图像框的大小，可以执行语句 【26】 。 A) Image1.AutoSize=True C) Image1.AutoSize=False
B) Image1.Stretch=True D) Image1.Stretch=False
27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符
号是 【27】 。 A) 减号-
B) 下划线_
C) &
D) #
28．要将窗体Form1从内存中卸载，正确的语句是 【28】 。 A) Form1.Show C) Form1.Hide
B) Load Form1 D) UnLoad Form1
29．在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub
此时，如果单击的是鼠标右键，则Button参数的值是 【29】 。 A) 1
B) 2
C) 3
D) 4
30．获取文件的长度（字节数），可以使用的函数是 【30】 。 A) LEN( ) B) LOF( )
C) EOF( )
D) LOG( )
二、填空题（每空 2分，共 20分） （请将答案按照题干上【】内的序号填写在下表中，否则不得分） 【1】 【3】 【4】 【6】 【5】 【2】 分数
2010级 - VB期末试卷(A卷带答案 2011.6)
