Visual Basic程序设计_0004
一、单项选择题（共10 道试题，共40 分。
）
1. 一旦数据到达，将首先触发Winsock控件的（）。
A.
DataArrival事件
B. ConnectionRequest事件
C. DataSend事件
D. DataGet事件
2. 以下叙述中错误的是（）。
A. 一个工程中只能有一个Sub Main过程
B. 窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体
C. 窗体的Hide方法和Unload方法的作用完全相同
D. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
3. 若要将窗体从内存中卸载，其实现的方法是（）。
A. Unload
B. Show
C. Load
D. Hide
满分：4 分
4. 下列数组声明语句，正确的是（）。
A. Dim a[3,4] As Integer
B. Dim a(3 4) As Integer
C. Dim a(n,n) As Integer
D. Dim a(3,4) As Integer
满分：4 分
5. 控件（）没有Caption属性。
A. Label
B. OptionButton
C. Frame
D. ListBox
满分：4 分
6. Visual Basic提供的常见鼠标事件中，鼠标按下所引发的事件为（）。
A. MouseDown事件
B. Click事件
C. MouseUp事件
D. MouseMove事件
满分：4 分
7. 下列数据类型中，（）占用内存最小。
A. Boolean
B. Byte
C. Integer
D. Long
满分：4 分
8. 无论何种控件，共同具有的属性是（）。
A. Text
B. Name
C. Caption
D. ForeColor
满分：4 分
9. 要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（）。
A. Visible
B. Timer
C. Enabled
D. Interval
满分：4 分
10. 在Visual Basic的转换函数中将数值转换为字符串的函数是Str(x) ；将数字字符串转换为数值的函数是（）。
A. Acs (x)
B. Srt (x)
C. Asc(x)
D. Vla (x)
满分：4 分
二、判断题（共10 道试题，共40 分。
）
1. Int(100 + Rnd * 101)表达式的值是范围在100到200之间的一个随机数。
A. 错误
B. 正确
满分：4 分
2. 执行Do…Loop While语句时，不管条件真假，首先会无条件地执行一次循环。
A. 错误
B. 正确
满分：4 分
3. 要在窗体Form1内显示“myfrm”，使用的语句是Form.caption="myfrm"。
A. 错误
B. 正确
满分：4 分
4. VB变量名中允许出现空格。
A. 错误
B. 正确
满分：4 分
5. 用Public语句声明的变量是全局变量。
A. 错误
B. 正确
6. 因为Single类型的变量可存储数值的范围大于Long类型的变量，所以Single类型占用内存大于Long类型。
A. 错误
B. 正确
满分：4 分
7. VB中将数据库分为本地数据库、外部数据库和远程数据库三种类型。
A. 错误
B. 正确
满分：4 分
8. 将变量A、B、C都赋值为0，可以用赋值语句A = B = C = 0去完成。
A. 错误
B. 正确
满分：4 分
9. Winsock1.Listen语句的含义是：使用服务程序处于侦听状态。
A. 错误
B. 正确
满分：4 分
10. 一个变量在被声明之后，尚未被赋值之前，就已经有默认值了。
Integer型变量的默认值是0。
A. 错误
B. 正确
满分：4 分
三、阅读理解（共 2 道试题，共20 分。
）
1.
阅读程序写出运行结果。
Sub Change(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
Print x, y
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 3:
b = 4
Change a, b
Print a, b
End Sub
选择单击窗体时输出结果为:
A.
4 3
3 4
B. 4 4
3 3
C. 3 3
4 4
D. 3 4
4 3
2. 阅读程序写出运行结果。
Function F(n As Integer) As Long
Dim i As Integer,Temp As Long
Temp = 1
For i=1 to n
Temp = Temp * i
Next i
F = Temp
End Function
Private Sub Form_Click( )
Dim k As Integer,nj As Integer
K = 5
nj = F(k)
Print k; "i="; nj
End Sub
选择程序运行时，单击窗体Form1上的结果。
A. 5 n=120
B. 5 n=150
C. 5 n=100
D. 5 n=15。