VisualBasic程序设计_0004

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