发布时间 : 星期四 文章2012江苏省计算机二级VB试题库及答案更新完毕开始阅读64a86ce0998fcc22bcd10d91
第二部分 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