发布时间 : 星期四 文章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