C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing
13．要删除列表框中的某一个项目，需要使用（ D ）方法。
A) Clear B) ReMove C) Move D) ReMoveItem
14．在组合框中选择某一项目内容，在程序中可以通过（ D ）属性获得。
A) List B) ListIndex C) ListCount D) Text
15．若有数组说明语句：Dim a()AS Integer，则a被定义为（ B ）。
A) 定长数组 B) 可调数组 C) 静态数组 D) 可变类型数组
16．有如下语句：
Type Student
Name As String
Age As Integer
Sex As String
End Type
Dim Stu As Student
With Stu
.Name = \李强\
.Age = 21
.Sex = \男\
End With
执行语句Print Stu.Age后在窗体上显示的结果是（ B ）。
A)李强 B)21 C)“男” D)Age
17.要使子过程f1调用后能用形式参数返回两个结果，下面子过程定义正确的是( C )。
A）Sub f1(ByVal n%,ByVal m%) B）Sub f1(n%,ByVal m%)
<子过程体> <子过程体>
End Sub End Sub
C）Sub f1(n%,m%) D）Sub f1(ByVal n%,m%)
<子过程体> <子过程体>
End Sub End Sub
18.以下叙述中错误的是( D )。
A) 一个工程中可以包含多个窗体文件
B) 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调
用
C) 在设计VB程序时，窗体模块和标准模块需要分别保存为不同类型的文件
D) 全局变量必须在标准模块中定义
19．从磁盘上打开顺序文件\为读入数据做好准备，如下语句（ A ）是正确的。
A） F=\）F=\
Open F For Input As #1 Open \
C）Open \）Open c:\\t1.txt For Input As #2
20.以下叙述中正确的是( B )。
A) 一个记录中所包含的各个元素的数据类型必须相同
B) 随机文件中每个记录的长度是固定的
C) Open命令的作用是打开一个已经存在的文件
D) 使用Input#语句可以从随机文件中读取数据
三、程序阅读题(第1题3分，第2题5分，其余题各4分，共24分)
1．当x的输入值分别为4、8和12时，写出执行下列事件过程的输出结果。
Private Sub Command1_Click()
Dim x%, y%
x = InputBox(\请输入x的值：\
Select Case x
Case 1, 3, 5 ,7
y = x + 10
Case 8 To 10
y = x + 2
Case 2, 4, 6
y = 5 * x
Case Is > 10
y = x * x + 1
End Select
Print \
End Sub
x=4 y=20
x=8 y=10
x=12 y=145
2. 写出执行下列事件过程的输出结果。
Private Sub Command1_Click()
Const n = 3
Dim i As Integer, k As Integer
For i = 1 To n
Print Tab((n - i) * 2 + 1);
For k = 1 To i
Print Str(k);
Next k
For k = i - 1 To 1 Step -1
Print Str(k);
Next k
Next i
End Sub
1
《VisualBasic程序设计》试题及其答案
