2012江苏省计算机二级VB试题库及答案

第二部分 Visual Basic程序设计

一、选择题（用答题卡答题，答案依次填在21～30答题号内）

21．下面关于Sub过程的说法，错误的是 21 。

A．不能用GoTo 语句进入或转出一个Sub过程 B．可以通过调用执行Sub过程，而且可以嵌套调用 C．Sub过程可以嵌套

D．在Sub过程内，不能定义Sub过程或Function过程 22．可以用InputBox函数产生―输入对话框‖。若执行下列语句

s = InputBox(\请输入\一个\数字\

当用户输入完毕，按―确定\按钮后，s变量的内容是 22 。

A．请输入 B．一个 C．数字 D．用户输入内容 23．Sub过程与Function过程最根本的区别是 23 。

A．Function过程可以有参数，Sub过程不可以 B．两种过程参数的传递方式不同

C．Sub过程无返回值，但Function过程有返回值

D．Sub过程是语句级调用，可以使用Call或直接使用过程名，Function过程是在

表达式中调用

24．打开顺序文件时，下列叙述正确的是 24 。

A．选用Input模式，文件不存在时，将会产生一个错误 B．选用Append模式，文件不存在时，将会产生一个错误 C．选用Output模式，文件不存在时，将会产生一个错误 D．必须用Len参数指定缓冲区的字符数

25．能在窗体的文本框Text1中显示―祝你成功‖的语句是 25 。

A．Text= \祝你成功\ B．Text1= \祝你成功\C．Text1 \祝你成功\ D．Text.AddItem \祝你成功\26．窗体上有一个通用对话框控件CommonDialog1，有下列语句：

CommonDialog1.Action = ShowSave 其表示为 26 。

A．显示―打开‖对话框 B．显示―另存为‖对话框 C．显示―颜色‖对话框 D．显示―字体‖对话框 27．运行下列程序：

Private Sub form_Click() x$ = \ n = Len(x) For i = 1 To n

Print Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1); Next i Print End Sub

单击窗体后，则输出结果是 27 。

A．a1b2c3 B．a3b2c1 C．3a2b1c D．1c2b3a 28．运行下列程序：

Private Sub form_Click() For i = 1 To 4 t = t * 10 + i s = s + t Next i Print s

End Sub

单击窗体后，则输出结果是 28 。

A．1234 B．4321 C．1370 D．4444 29．运行下列程序：

Private Sub Form_Click() For i = 3 To 1 Step -1 For j = 2 To 1 Step -1

Debug.Print \ Next j Next i End Sub

单击窗体后，则在立即窗口内显示结果是 29 。

A．AAA*A**A*** B．AAA*A*A**A** C．A*A*A*A*A*A* D．A*** 30．运行下列程序：

Private Sub Form_Click() For i = 1 To 3

Print Spc(3); (2 * i + 1) * (2 * i - 1); Next i Print End Sub

单击窗体后，则在窗体上显示的结果是 30

A．1 2 3 B．3 3 3 15 3 35 C．3 15 35 D．3 2 1

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．一个以连字符―-‖作为它的Caption属性的菜单控件，作为一个 （1） 出现。 2．以下所列的7个控件中，具有Caption属性的有 （2） 个。 PictureBox（图片框）、Frame（框架）、OptionButton（单选按钮）、ListBox（列表框）、TextBox（文本框）、Form（窗体）、CommandButton（命令按钮）

3．下列程序运后，当单击鼠标的左键时，在窗口打印的结果是 （3） 。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As

Single)

Print Format(5248.4, \End Sub

4．使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接，应该使用 （4） 控件。

5．运行下列程序，单击窗体后在窗体上显示第三行和第四行的结果分别是是 （5） 。和 （6） 。

Private Sub Form_Click() Dim x As Integer

Dim i As Integer, j As Integer i = 1: j = 1: x = 0 Do Do

x = x + j j = j + 2 Loop Until j > 4