打印本文 打印本文  关闭窗口 关闭窗口  
全国计算机等级考试二级VB模拟试题16
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:49: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      

答案 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      

答案

11.在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
A、Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<65 Or KeyAscii>90 Then
MsgBox"请输入大写字母"
KeyAscii=0
End If
End Sub
B、Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode<65 Or KeyCode>90 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)<65 Or Asc(Text1.Text)>90 Then
MsgBox"请输入大写字母"
End If
End Sub
D、Private Sub Text1_Change()
If Asc(Text1.Text)>64 And Asc(Text1.Text)<91 Then
MsgBox"请输入大写字母"
End If
End Sub

A       B       C       D      

12.下列____字符不属于Visual Basic字符集。
A、A
B、#
C、ξ
D、@
A       B       C       D      

13.要使一个标签透明且不具有边框，则应：____
A、将其BackStyle属性设置为0,BorderStyle属性设置为1
B、将其BackStyle属性设置为0,BorderStyle属性设置为0
C、将其BackStyle属性设置为1,BorderStyle属性设置为1
D、将其BackStyle属性设置为1,BorderStyle属性设置为0
A       B       C       D      

 

14.在参数传递过程中，使用关键字_____来修饰参数，可以使之按值传递。
A、ByVal
B、ByRef
C、Value
D、Reference
A       B       C       D      
15.下面____不是字符串常量
A、"语言"
B、" "
C、"5"
D、#False#
A       B       C       D      

16.下面关于InputBox函数的叙述，不正确的是____。
A、在默认情况下，InputBox的返回值是一个字符串
B、InputBox函数可以写成InputBox＄的形式
C、执行一次InputBox函数时，不可以同时输入多个数值
D、执行一次InputBox函数可以输入多个数值
A       B       C       D      

 

17.关于语句If x=1 Then y=1,下列说法正确的是____。
A、x=1和y=1均为赋值语句
B、x=1和y=1均为关系表达式
C、x=1为关系式表达式，y=1为赋值语句
D、x=1为赋值语句，y=1为关系表达式
A       B       C       D      

18.Sub过程与Function过程最根本的区别是____。
A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B、Function过程可以有参数，Sub过程不可以
C、两种过程参数的传递方式不同
D、Sub过程的过程名不能返回值，而Function过程能通过过程返回值
A       B       C       D      

19.表达式A%*B&-D#\3.0+F!的结果是_____。
A、整型
B、长整型
C、单精度型
D、双精度型
A       B       C       D      

20.要使文本框获得输入焦点，则应采用文本控件的哪个方法____。
A、GotFocus
B、LostFocus
C、KeyPress
D、SetFocus
A       B       C       D      

答案

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      

答案

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<100
C、N=0
DO
N=N+1
LOOP UNTIL N<100
D、N=0
DO WHILE N<100
N=N+1
LOOP
A       B       C       D      

答案

二、填空题（每空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 I<=____And Flag=0
If N Mod I=0 Then Flag=1 Else I=I+1
Loop
If Flag=0 then
Text1.Text=Text1.Text & Str(N) & Chr(13) & Chr(10)
End If
Next N
End Sub
输入答案，中间不含空格:
11.为了把一个窗体装入，所使用的语句为____；而为了清除内存中指定的窗体，所使用的
语句为____。
输入答案，中间不含空格:
12.上一题 第 2 空
输入答案，中间不含空格:
13.以下程序代码将任意一组数存入数组，从键盘接收一数据，将其插入数组中，插入的位置也从键盘接收。
Dim A( )
Private Sub Form_Click( )
N=InputBox("数据个数:")
N=N+1
____
For I=1To N-1
A(I)=Val(InputBox("原数据:"))
Next I
D=Val(InputBox("插入的数据:"))
P=Val(InputBox("插入的位置:"))
Do While P>N Or P<1
MsgBox"位置越界!"
P=Val(InputBox("插入的位置:"))
Loop
For I=N To P+1 Step -1
A(I)=A(I-1)
Next I
A(P)=D
For I=1 To N
Text1.Text=Text1.Text & Str(A(I))&""
Next I
End Sub
输入答案，中间不含空格:
14.下列程序代码读入N个数，用比较交换法对这N个数按从大到小的顺序排序，并在文本框Text1中输入排序结果。
Dim____
Private Sub Command1_Click( )
N=Val(InputBox("请输入N:"))
ReDim A(N)
For I=1 To N
A(I)=Val(InputBox("请输入A(I):",,I))
Next I
Text1.Text=""
For I=1 To N-1
For J=I+1 To N
If A(I) T=A(I)
A(I)=A(J)
A(J)=T
End If
Next J
Text1.Text=Text1.Text & Str(A(I))&" "
Next I
Text1.Text=Text1.Text & Str(A(N))
End Sub
输入答案，中间不含空格:
15.把下面的数写成普通十进制的数
8.678E+8
输入答案，中间不含空格:
打印本文 打印本文  关闭窗口 关闭窗口