发布时间 : 星期一 文章vb4更新完毕开始阅读
2008年9月计算机二级VB语言真题
一、选择题（每题2分，共计70分）
1.一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后 再依次出栈，则元素出栈的顺序是
A)12345ABCDE B)EDCBA54321 C)ABCDE12345 D)54321EDCBA 2.下列叙述中正确的是
A)循环队列有队头和队尾两个指针，因此，循环队列是非线性结构
B)在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 C)在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况 D)循环队列中元素的个数是由队头指针和队尾指针共同决定
3.在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是 A)O(n) B)O(n) C)O(log2) D)O(n log2) 4.下列叙述中正确的是
A)顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 B)顺序存储结构只针对线性结构，链式存储结构只针对非线性结构 C)顺序存储结构能存储有续表，链式存储结构不能存储有序表 D)链式存储结构比顺序存储结构节省存储空间 5.数据流图中带有箭头的线段表示的是
A)控制流 B)事件驱动 C)模块调用 D)数据流 6.在软件开发中，需求分析阶段可以使用的工具是
A)N-S图 B)DFD图 C)PAD图 D)程序流程图 7.在面向对象方法中，不属于“对象”基本特点的是
A)一致性 B)分类性 C)多态性 D)标识唯一性 8.一间宿舍可以住多个学生，则实体宿舍和学生之间的联系是 A)一对一 B)一对多 C)多对一 D)多对多 9.在数据管理技术发展的三个阶段中，数据共享最好的是
A)人工管理阶段 B)文件系统阶段 C)数据库系统阶段 D)三个阶段相同 10.有三个关系R、S、和T如下：
2
n
n
由关系R和S通过运算得到关系T,则所使用的运算为
A)笛卡尔积 B)交 C)并 D)自然连接 11.在设计窗体时双击窗体的任何地方，可以打开的窗口是
A)代码窗口 B)属性窗口 C)工程资源管理器窗口 D)工具箱窗口 12.若变量a未实现定义而直接使用（例如：a=0），则变量a的类型是 A)Integer B)String C)Boolean D)Variant
13.把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为
A)Dim pi As Integer B)Dim pi(7) As Integer C)Dim pi As Single D)Dim pi As Long
14.表达式2*3^2+4*2/2+3^2的值是 A)30 B)31 C)49 D)48 15.以下不能输出“Program”的语句是
A)Print mid(\ B)Print Right(\C)Print Mid(\ D)Print Left(\
16.窗体上有一个名称为Frame1的框架（如图）,若要把框架上显示的\改为 汉字“框架”，下面正确的语句是
A)Frame1.Name=\框架\ B)Frame1.Caption=\框架\ C)Frame1.Text=\框架\D)Frame1.Value=\框架\17.以下叙述中错误的是
A)在通用过程中，多个形式参数之间可以用逗号作为分隔符 B)在Print方法中，多个输出项之间可以用逗号作为分隔符 C)在Dim语句中，所定义的多个变量可以用逗号作为分隔符 D)当一行中有多个语句时，可以用逗号作为分隔符
18.设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表 项内容的是
A)List1.List B)List1.ListIndex C)List1.Text D)List1.Index 19.设a=4,b=5,c=6,执行语句Print a
strInpug=InputBox(\请输入字符串\字符串对话框\字符串)
将显示输入对话框。如果此时直接点击\确定\按钮，则变量strInput的内容是 A)\请输入字符串\ B)\字符串对话框\字符串\ D)空字符串 21.窗体上有Command1、Command2两个命令按钮。现编写以下程序：
Option Base 0
Dim a() As Integer,m As Integer Private Sub Command1_Click()
m = InputBox(\请输入一个正整数\ ReDim a(m) End Sub
Private Sub Command2_Click()
m = InputBox(\请输入一个正整数\ ReDim a(m) End Sub
运行程序是，单击Command1后输入整数10，再单击Command2后输入整数5，则数组 a中元素的个数是
A)5 B)6 C)10 D)11
22.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写 如下的事件过程
Private Sub Command1_Click() conter = 0
For I = 1 To 4
For J = 6 To 1 Step -2 conter = conter + 1 Next J Next I
Label1.Caption = Str(conter) End Sub
程序运行后，单击命令按钮，标签中显示的内容是 A)11 B)12 C)16 D)20
23.在窗体上画一个名为command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click() Dim M(10) As Integer For k = 1 To 10
M(k) = 12 - k Next k x = 8
Print M(2 + M(x)) End Sub
运行程序，单击命令按钮，在窗体上显示的是 A)6 B)5 C)7 D)8 24.以下关于过程及过程参数的描述中，错误的是
A)调用过程时可以用控件名称作为实际参数B)用数组作为过程的参数是，使用的是“传地址”方式
C)只有函数过程能够将过程中处理的信息传回到调用的程序中D)窗体(Form)可以作为过程的参数
25.在窗体上画一个名为Command1的命令按钮，再画两个名称分别为Label1、Label2 的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click() X = 5: Y = 3 Call proc(X, Y) Label1.Caption = X Label2.Caption = Y End Sub
Private Sub proc(a As Integer, ByVal b As Integer) X = a * a Y = b + b End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A)25和3 B)5和3 C)25和6 D)5和6
26.在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令 按钮。运行后的窗体外观如图所示。
设有如下的类型和变量声明
Private Type Person
name As String * 8 major As String * 20 End Type
Dim p As Person
设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时，能头 正确地把变量中的数据写入随机文件Test2.dat中的程序段是
A)Open \Output As #1 Put #1,1,p Close #1
B)Open \For Random As #1 Get #1,1,p Close #1
C)Open \For Random As #1 Len=Len(p) Put #1,1,p Close #1
D)Open \For Random As #1 Len=Len(p) Get #1,1,p Close #1
27.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编 写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To 50 i = i + 3 n = n + 1
If i > 10 Then Exit For Next
Text1.Text = Str(n) End Sub
程序运行后，单击命令按钮，在文本框中显示的值是 A)2 B)3 C)4 D)5
28.假定有以下循环结构
Do Until 条件表达式 循环体 Loop
则以下正确的描述是
A)如果“条件表达式”的值是0，则一次循环体也不执行B)如果“条件表达式”的值不是0，则至少执行一次循环体
C)不论“条件表达式”的值是否为“真”，至少要执行一次循环体D)如果“条件表达式”的值恒为0，则无限次执行循环体
29.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim I, Num Randomize Do
For I = 1 To 1000
Num = Int(Rnd * 100) Print Num;
Select Case Num Case 12
Exit For Case 58
Exit Do Case 65, 68, 92 End End Select Next I Loop End Sub
上述事件过程执行后，下列描述中正确的是
A)Do循环执行的次数为1000次B)在For循环中产生的随机数小于或等于100 C)当所产生的随机数为12时结束所有循环D)当所产生的随机数为65，68或92时窗体关闭、程序结束
30.在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click() Dim a
a = Array(1, 2, 3, 4) j = 1
For I = 4 To 1 Step -1 s = s + a(I) * j j = j * 10 Next I Print s End Sub
运行上面的程序，其输出结果是
A)1234 B)12 C)34 D)4321 31.设有如下通用过程
Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer