全国计算机等级考试二级VB模拟试题16
一、选择题（每题2分，共计70分）1.若某线性表中最常用的操作是取第I个元素和找第I个元素的前趋元素，则采用____存储方式最节省时间。A、顺序表
B、单链表
C、双链表
D、单循环链表 A B C D 2.以下关于队列的叙述中哪一条是不正确的？
A、队列的特点是先进先出
B、队列既能用顺序方式存储，也能用链接方式存储
C、队列适用于二叉数对称序周游算法的实现
D、队列适用于树的层次次序周游算法的实现 A B C D 3.设有下列二叉树
A
/ \
B C
/ \ /
D E F
对此二叉树中序遍历的结果为
A、ABCDEF
B、DBEAFC
C、ABDECF
D、DEBFCA A B C D 4.设有100个结点，用二分法查找时，最大比较次数是____。
A、25
B、50
C、10
D、7 A B C D 5.对建立良好的程序设计风格，下面描述正确的是
A、程序应简单、清晰、可读性好
B、符号名的命名只要符合语法
C、充分考虑程序的执行效率
D、程序的注释可有可无 A B C D
全国计算机等级考试二级VB模拟试题16
6.软件开发的结构生命周期法（SA）的基本假定是认为软件需求能做到A、严格定义
B、初步定义
C、早期冻结
D、动态改变 A B C D
7.软件开发的结构化设计（SD）方法，全面指导模块划分的最重要原则应该是
A、模块高内聚
B、模块低耦合
C、模块独立性
D、程序模块化 A B C D
8.____是存储在计算机内有结构的数据的集合。
A、数据库系统
B、数据库
C、数据库管理系统
D、数据结构 A B C D
9.E-R模型用于数据库设计的哪一个阶段？
A、需求分析
B、概念结构设计
C、逻辑结构设计
D、物理结构设计 A B C D
10.下列说法中____是不正确的。
A、数据库减少了数据冗余
B、数据库避免了一切数据重复
C、数据库中的数据可以共享
D、如果冗余是系统可控制的，则系统可确保更新时的一致性 A B C D
全国计算机等级考试二级VB模拟试题16
11.在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A、Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii90 Then
MsgBox"请输入大写字母"
KeyAscii=0
End If
End Sub
B、Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode90 Then
MsgBox"请输入大写字母"
KeyCode=0
End If
End Sub
C、Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Asc(Text1.Text)90 Then
MsgBox"请输入大写字母"
End If
End Sub
D、Private Sub Text1_Change()
If Asc(Text1.Text)>64 And Asc(Text1.Text)
全国计算机等级考试二级VB模拟试题16
21.要使目录列表框（名称为Dirl）中的目录随着驱动器列表框（名称为Drivel）中所选择的当前驱动器的不同而同时发生变化，则应：____。A、在Dirl中的Change事件中，书写语句Dirl.Drive=Drivel.Drive
B、在Dirl中的Change事件中，书写语句Dirl.Path=Drivel.Drive
C、在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.Drive
D、在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive A B C D
22.以下定义数组或给数组元素赋值的语句中，正确的是
A、Dim a As Variant
a = Array(1,2,3,4,5)
B、Dim a(10) As Integer
a = Array(1,2,3,4,5)
C、Dim a%(10)
a(1) = "ABCDE"
D、Dim a(3),b(3) As Integer
a(0) = 0
a(1) = 1
a(2) = 2
b = a A B C D
23.要获得文件列表框中的当前被选中的文件的文件名，则应使用下列____属性。
A、Dir
B、Path
C、Drive
D、FileName A B C D
24.要将一个组合框设置为简单组合框(Simple Combo),则应该将其Style属性设置为____。
A、0
B、1
C、2
D、3 A B C D
25.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A、如果工程中含有SubMain过程，则程序一定首先执行该过程
B、不能把标准模块设置为启动模块
C、用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D、任何时刻最多只有一个窗体是活动窗体 A B C D
26.执行如下语句：
a = InputBox("Today","Tomorrow","yesterday",,,"Day before yesterday",5)
将显示一个输入对话框，在对话框的输入区中显示的信息是
A、Today
B、Tomorrow
C、Yesterday
D、Day before yesterday A B C D
27.设已经在窗体上添加上一个通用对话框控件CommonDialogl,以下正确的语句是____。
A、CommonDialog1,Filter=ALL Files|*.*|Pictures(*.Bmp)|*.Bmp
B、CommonDialog1,Filter="ALL Files"|*.*|"Pictures(*.Bmp)"|*.Bmp
C、CommonDialog1,Filter={ALL Files|*.*|Pictures(*.Bmp)|*.Bmp}
D、CommonDialog1,Filter="ALL Files|*.*|Pictures(*.Bmp)|*.Bmp" A B C D
28.在窗体（Name属性为Forml）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Commandl），然后编写如下两个事件过程：
Private Sub Commandl_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
End Sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为____。
A、444
B、321123
C、123321
D、132231 A B C D
29.窗体上有命令按钮（COMMAND1)和文本输入框TEXT1,命令按钮click中代码如下：
Private Sub Command1_Click()
A = 75
If A > 60 Then I = 1
If A > 70 Then I = 2
If A > 80 Then I = 3
If A > 90 Then I = 4
Text1.Text = I
End Sub
运行后，单击命令按钮，text1中显示____。
A、1
B、2
C、3
D、4 A B C D
30.单击命令按钮时，下列程序代码的执行结果为____。
Dim a As integer,b As Integer,c As Integer
Private Sub Command1_Click( )
a=5:b=8:c=9
Call Proc1(a,b)
Print"a=";a;"b=";b;"c=";c
Call Proc2(a,b)
Print"a=";a;"b=";b;"c=";c
End Sub
Public Sub Proc1(x As Integer,y As Integer)
Dim c As Integer
x=2*x:y=y+2:c=x+y
End Sub
Public sub proc2(x As Integer,Byval y as Integer)
Dim c As Integer
x=2*x:y=y+2:c=x+y
End sub
A、a=20 b=10 c=9
a=10 b=10 c=9
B、a=10 b=10 c=9
a=20 b=10 c=9
C、a=10 b=10 c=9
a=10 b=10 c=9
D、a=20 b=20 c=9
a=20 b=10 c=9 A B C D
全国计算机等级考试二级VB模拟试题16
31.单击一次命令按钮之后，下列程序代码的执行结果为____。Private Sub Command1_Click( )
S=P(1)+P(2)+P(3)+P(4)
Print S;
End Sub
Private Function P(N As Integer)
Static SUM
For I= 1 TO N
Sum=sum+1
Next I
P=SUM
End Function
A、135
B、115
C、35
D、20 A B C D
32.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容， 对应的事件过程是____：
A、Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
B、Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
C、Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
D、Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub A B C D
33.下面的程序代码实现将一个一维数组中元素向左循环移动，循环次数由文本框Text1输入。例如数组各元素的值依次为0、1、2、3、4、5、6、7、8、9、10，移位三次后，各元素的值依次为8、9、10、0、1、2、3、4、5、6、7。
Private Sub Commandl_Click( )
Dim a(10) As Integer,i As Integer,j As Integer,k As Integer
For i=0 To 10
a(i)=i
Next i
j=Val(Text1.Text)
k=0
Do
k=k+1
____
Loop Until k=j
For i=0 To 10
Print a(i);
Next i
End Sub
Private Sub MoveRight(x( )As Integer)
Dim i As Integer,j As Integer,k As Integer
i=UBound(x):j=x(i)
For k=i To LBound(x)+1 Step -1
x(k)=x(k-1)
Next k
x(LBound(x))=j
End Sub
A、MoveRight(a)
B、Call MoveRight
C、Call MoveRight(a)
D、Call MoveRight a A B C D
34.在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Command1_Click()
s = 0
For i = 1 To 15
x = 2 * i -1
If x Mod 3 = 0 Then s =s + 1
Next i
Label1.Caption = s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是
A、1
B、5
C、27
D、45 A B C D
35.下列语句组中,不能循环100次的有 ____。
A、N=0
DO
N=N+1
LOOP UNTIL N>=100
B、N=0
DO
N=N+1
LOOP WHILE N
全国计算机等级考试二级VB模拟试题16
二、填空题（每空2分，共计30分）1.对于栈只能在____插入和删除元素。 输入答案，中间不含空格: 2.设表中元素的初始状态是按键值递增的，分别用堆排序、快速排序和冒泡排序对其进行排序（按递增顺序），冒泡排序最省时间，____最费时间。 输入答案，中间不含空格: 3.软件测试是为了检出并改正尽可能多的错误，不断提高软件的____。 输入答案，中间不含空格: 4.数据库系统的核心部分是____，对数据库的一切操作都是通过它的。 输入答案，中间不含空格: 5.数据模型是用来描述数据库的结构和语义的，数据模型有概念数据模型和结构数据模型
两类，E-R模型是____模型。 输入答案，中间不含空格: 6.在多重窗体的程序中，设置启动窗体的方法是：通过执行____菜单中的命令，打开工程
属性对话框完成。 输入答案，中间不含空格: 7.为了把一个窗体装人内存，所使用的语句为____ ，而为了清除内存中指定的窗体，
所使用的语句为Unload,使一个窗体从屏幕上消失仍在内存中所使用的方法或语句Hide，
显示一个窗体所使用的方法是Show。 输入答案，中间不含空格: 8.设工程中有两个窗体Form1、Form2，一个标准模块Modulel，设在Form2的代码中定义了以下过程：
Sub aaa(x,y,z)
z=x^2+y^2
End Sub
在Mobule1中定义了以下过程：
Sub bbb(x,y,z)
z=x^3+y^3
End Sub
要在Form1中单击命令按钮Commandl时，调用以上过程计算两个数的平方和与立方和。并分别将结果显示在文本框Text3和Text4
中，请在以下程序段中写出相应的调用语句。
Private Sub Commandl_Click( )
a=val(Text1.Text)
b=val(Text2.Text)
Call____
Text3.Text=cl
bbb a,b,c2
Text4.Text=c2
End Sub 输入答案，中间不含空格: 9.在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
Private Sub Command1_Click()
Dim a As String
a = ____
For i = 1 To 5
Print Space(6-i); Mid$(a,6-i,2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。 输入答案，中间不含空格: 10.以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。
Private Sub Command1_Click( )
Text1.Text=""
For N=2 To 100
K=Int(Sqr(N))
I=2
Flag=0
Do While IN Or P
页:
[1]