全国计算机等级考试二级VB模拟试题8
一、选择题（每题2分，共计70分）1.以下关于数据的存储结构的叙述中哪一条是正确的？A、数据的存储结构是数据间关系的抽象描述
B、数据的存储结构是逻辑结构在计算机存储器中的实现
C、数据的存储结构分为线性结构和非线性结构
D、数据的存储结构对数据运算的具体实现没有影响 A B C D 2.数组Q作为一个环形队列，f为当前队头元素的前一位置，r为队尾元素的位置，假定队列中元素的个数总小于n，队列中元素的个数是____。
A、r-f
B、n+f-r
C、n+r-f
D、(n+r-f)mod n A B C D 3.关于二叉树，存在以下三种说法：
①二叉树按某种顺序线索化后，任一结点均有指向其前趋和后继的线索。
②二叉树的前序遍历序列中，任意一个结点均处在其子女结点的前面。
③由于二叉树中每个结点的度最大为2，所以二叉树是一种特殊的树。
其中正确的是____。
A、只有①
B、只有②
C、①和③
D、以上全不对 A B C D 4.设待排序关键码序列为（25，18，9，33，67，82，53，95，12，70），要按关键码值递增
的顺序排序，采取以第一个关键码为分界元素的快速排序法，第一趟完成后关键码95被放
到了第几个位置？
A、7
B、8
C、9
D、10 A B C D 5.在面向对象数据模型中，子类不但可以从其超类中继承所有的属性和方法，而且还可以定义自己的属性和方法，这有利于实现
A、可移植性
B、可扩充性
C、安全性
D、可靠性 A B C D
全国计算机等级考试二级VB模拟试题8
答案6.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾,这种现象称作A、软件投机
B、软件危机
C、软件工程
D、软件产生 A B C D 7.软件详细设计主要采用的方法是
A、结构化程序设计
B、模块设计
C、结构化设计
D、PDL语言 A B C D 8.下列关于数据库三级模式结构的说法中，哪一个是不正确的？
A、数据库三级模式结构由内模式、模式和外模式组成
B、DBMS在数据库三级模式之间提供外模式/模式映像和模式/内模式映像
C、外模式/模式映像实现数据的逻辑独立性
D、一个数据库可以有多个模式 A B C D 9.数据库设计中，按照统一观点构造全局逻辑结构，这称为数据库的____。
A、内模式
B、概念模式
C、外模式
D、用户模式 A B C D 10.设关系R、S和T分别为下图所示，则有
( R ) ( S )
A B C B E
a1 b1 5 b1 3
a1 b2 6 b2 7
a2 b3 8 b3 10
a2 b4 12 b3 2
b5 2
( T )
A R.B C S.B E
a1 b1 5 b2 7
a1 b1 5 b3 10
a1 b2 6 b2 7
a1 b2 6 b3 10
a2 b3 8 b3 10
A、T = R 连接 S (C
全国计算机等级考试二级VB模拟试题8
11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A、3
B、4
C、5
D、6 A B C D 12.如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect属性设置为：____。
A、0
B、1
C、2
D、3 A B C D 13.若使标签能够显示所需要的文本，则在程序中应设置____属性的值。
A、Text
B、caption
C、Name
D、AutoSize A B C D 14.表达式X+1>X是_____。
A、算术表达式
B、字符串表达式
C、关系表达式
D、非法表达式 A B C D 15.下列符号常量的声明中,____是不合法的。
A、Const a As Single=1.1
B、Const a As integer="12"
C、Const a As double=Sin(1)
D、Const a="OK" A B C D
全国计算机等级考试二级VB模拟试题8
16.执行“工程”菜单中的____命令，可以添加一个标准模块。A、添加过程
B、通用过程
C、添加窗体
D、添加模块 A B C D 17.下列语句正确的是____。
A、If A≥B Then T=A A=B B=T
B、If A≥B Then T=A:A=B:B=T
C、If A>=B Then T=A A=B B=T
D、If A>=B Then T=A:A=B:B=T A B C D 18.表达式25.28 Mod 6.99的值是____。
A、1
B、5
C、4
D、出错 A B C D 19.表达式2*3^2+2*8/4+3 ^2的值为____。
A、64
B、31
C、49
D、22 A B C D 20.下列____控件属于文件系统控件。
A、文本框
B、驱动器列表框
C、列表框
D、图像列表框 A B C D
全国计算机等级考试二级VB模拟试题8
21.下面叙述中不正确的是____。A、驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
B、驱动器列表框的Drive属性只能在运行时被设置
C、从驭动器列表框中选择驱动器能自动地变更系统当前的工作驱动器
D、要改变系统当前的工作驱动器需要使用ChDrive语句 A B C D 22.单击滚动条的滚动箭头时，产生的事件是____。
A、Click
B、Scroll
C、Change
D、Move A B C D 23.以下能够触发文本框Change事件的操作是
A、文本框失去焦点
B、文本框获得焦点
C、设置文本框的焦点
D、改变文本框的内容 A B C D 24.以下叙述中错误的是
A、下拉式菜单和弹出式菜单都用菜单编辑器建立
B、在多窗体程序中，每个窗体都可以建立自己的菜单系统
C、除分隔线外，所有菜单项都能接收Click事件
D、如果把一个菜单项的Enable属性设置为False,则该菜单项不可见 A B C D 25.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A)Cos(a+b)^2+5*exp(2) B)Cos^2(a+b)+5*exp(2)
C)Cos(a+b)^2+5*ln(2) D)Cos^2(a+b)+5*ln(2) A B C D
全国计算机等级考试二级VB模拟试题8
26.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A、Drive1_Change
B、Drive1_Click
C、Dir1_Click
D、Dir1_Change A B C D 27.下列程序段的执行结果为____。
A=0:B=1
A=A+B:B=B+A:Print A;B
A=A+B:B=B+A:Print A;B
A、1 2
3 5
B、1 1
3 5
C、1 3
3 4
D、1 2
3 4 A B C D 28.窗体中有如下代码
Private Sub Command1_Click()
x = 0
For k = 3 To 5
GoSub ab
s = s + x
Next k
Print s
Exit Sub
ab: x = x + 2
Return
End Sub
运行后单击COMMAND1按钮，输出的结果是____。
A、3
B、12
C、6
D、9 A B C D 29.下面程序段的执行结果为____。
I=4
A=5
Do
I=I+1
A=A+3
Loop Until I>=9
Print"I=";I
Print"A=";A
A、I=9
A=20
B、I=10
A=20
C、I=10
A=23
D、I=9
A=23 A B C D 30.单击窗体时，下列程序代码的执行结果为____。
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m = m - n: n = n + 3
Print m; n
End Sub
Private Sub Form_click()
Dim x As Integer, Y As Integer
x = 5: Y = 6
Call Value(x, Y)
Print x; Y
End Sub
A、-1 9
-1 9
B、5 6
5 6
C、-1 9
5 6
D、9 -1
5 6 A B C D
全国计算机等级考试二级VB模拟试题8
31.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
x=0
Do Until x=-1
a=InputBox("请输入a的值")
a=Val(a)
b=InputBox("请输入b的值")
b=Val(b)
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
LOOP
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为____。
A、2
B、3
C、14
D、15 A B C D 32.假定编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
X As Single,Y As Sin-gle)
If(Button And 2)=2 Then
Print"Hi"
End If
End Sub
程序运行后，为了在窗体上输出“Hi”，应在窗体上执行以下____操作。
A、只能按下左按钮并拖动
B、只能按下右按钮并拖动
C、必须同时按下左、右按钮并拖动
D、按下左按钮拖动或按下右按钮拖动都可 A B C D 33.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A、2
B、3
C、4
D、5 A B C D 35.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
Array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A、12
B、13
C、14
D、15 A B C D
全国计算机等级考试二级VB模拟试题8
二、填空题（每空2分，共计30分）1.数据结构被形式地定义为（K，R），其中K是____的有限集，R是K上的关系的有限集。 输入答案，中间不含空格: 2.顺序查找法的平均查找长度为____。 输入答案，中间不含空格: 3.软件调试的方法主要有：强行排错法、____、原因排错法。 输入答案，中间不含空格: 4.DBTG规定数据管理语言由3部分：____、子模式DDL和DML。 输入答案，中间不含空格: 5.表示实体（事物）及实体间（事物间）联系的模型，称为____。 输入答案，中间不含空格:全国计算机等级考试二级VB模拟试题8
6.在工具栏的右侧有两栏，分别用来显示窗体的当前位置和大小，其单位为____。 输入答案，中间不含空格: 7.若A=20，B=80，C=70，D=30，则表达式A+B>160 Or (B+C>200 And Not D>60)的值是____。 输入答案，中间不含空格: 8.Visual Basic应用程序中标准模块文件的扩展名是______。 输入答案，中间不含空格: 9.A的绝对值大于等于B而不等于C的布尔表达式____。 输入答案，中间不含空格: 10.以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值1。____ As Integer
private Sub Command1_Click( )
ReDim X(1 To 20)
____
X(I)=1
Print X(I)
Next I
End Sub 输入答案，中间不含空格:
全国计算机等级考试二级VB模拟试题8
11.上一题 输入答案，中间不含空格: 12.以下程序段产生100个1~4之间的随机整数，并进行统计。数组元素S(i)(i=1,2,3,4)的值表示等于i的随机数的个数，要求输出如下格式：S(1)=. . .
S(2)=. . .
S(3)=. . .
S(4)=. . .
将程序补充完整。
Dim S(4) As Integer
Randomize
For I=1 To 100
X=Int(Rnd * 4+1)
S(X)=S(X)+1
Next I
For I=1 To 4
____
Next I 输入答案，中间不含空格: 13.设工程中有两个窗体Form1、Form2，一个标准模块Module1，设在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
____
Text4.Text=c2
End Sub 输入答案，中间不含空格: 14.上一题 输入答案，中间不含空格: 15.打开顺序文件StuData.txt，读取文件中的数据，并将数据显示在窗体上。
Private Sub Form_Click( )
Open"C:StuData.txt"For Input As #1
Do While While Not EOF(1)
____,StuNo,StuName,StuEng
Loop
Close #1
End Sub 输入答案，中间不含空格:
页:
[1]
2