全国计算机等级考试二级VB模拟试题12
一、选择题（每题2分，共计70分）1.与数据元素本身的形式、内容、相对位置、个数无关的是数据的____。A、存储结构
B、存储实现
C、逻辑结构
D、运算实现 A B C D 2.如果进栈序列为e1e2e3e4，则可能的出栈序列是____。
A、e3 e1 e4 e2
B、e4 e2 e1 e3
C、e3 e2 e1 e4
D、e3 e4 e1 e2 A B C D 3.以下关于链式存储结构的叙述中，哪一条是不正确的
A、结点除自身信息外还包括指针域，因此存储密度小于顺序存储结构
B、逻辑上相邻的结点物理上不必相邻
C、可以通过计算直接确定第I个结点的存储地址
D、插入、删除运算操作方便，不必移动结点 A B C D 4.用冒泡排序算法对数据：2，37，42，19，27，35，56，44，10进行从小到大排序。在将最大的数"沉"到最后时，数的顺序是____。
A、2，37，42，27，19，35，44，10，56
B、2，37，42，19，27，35，10，44，56
C、2，37，19，27，35，42，44，10，56
D、2，10，19，27，35，37，42，44，56 A B C D 5.在面向对象数据模型中，子类不但可以从其超类中继承所有的属性和方法，而且还可以定义自己的属性和方法，这有利于实现
A、可移植性
B、可扩充性
C、安全性
D、可靠性 A B C D
全国计算机等级考试二级VB模拟试题12
6.与早期的软件开发方式相比较，结构化周期法最重要的指导原则应该是A、自顶向下设计
B、分阶段开发
C、逐步求精
D、用户需求至上 A B C D 7.软件的______设计又称为总体结构设计，其主要任务是建立软件系统的总体结构。
A、概要
B、抽象
C、逻辑
D、规划 A B C D 8.数据库管理系统常用的数据模型有____三种。
A、网状模块、链状模型和层次模型
B、层次模型、环状模型和关系模型
C、层次模型、网状模型和关系模型
D、层次模型、网状模型和语义模型 A B C D 9.关系模型有三类完整性约束：实体完整性、参照完整性和用户定义的完整性。定义外键实现的哪一（些）类完整性？
A、实体完整性
B、参照完整性
C、用户定义的完整性
D、实体完整性、参照完整性和用户定义的完整性 A B C D 10.基于"学生-选课-课程"数据库中如下三个关系：
S（S#，SNAME，SEX，AGE），SC（S#，C#，GRADE），C（C#，CNAME，TEACHER）
查找学生号为"200301188"的学生的"数据库"课程的成绩，至少将使用关系
A、S和SC
B、SC和C
C、S和C
D、S、SC和C A B C D
全国计算机等级考试二级VB模拟试题12
11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
Dim num As Integer
num=1
Do Until num>6
Print num;
num=num+2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出 A B C D 12.决定控件上文字的字体、字形、大小、效果的属性是____
A、Text
B、Caption
C、Name
D、Font A B C D 13.当标签的内容太长，需要根据标题自动调整标签的大小时，应设置标签的____属性为True；若需要标签在垂直方向变化大小与标题相适应，还应设置Wordwrap属性为True.。
A、AutoSize
B、WordWrap
C、Enalbled
D、Visble A B C D 14.下列关于菜单的说法中,错误的是____。
A、每个菜单项都是一个控件,与其他控件一样也有其属性和事件
B、除了Click事件之外,菜单项不可以响应其他事件
C、菜单控件可以建立数组
D、系统会自动为用户建立索引值 A B C D 15.新建一个工程将其窗体的Name属性设置为Myfrm，则默认的窗体文件名为_____。
A、Form1.frm
B、Myfrm.frm
C、Form1.vbp
D、工程1.frm A B C D
全国计算机等级考试二级VB模拟试题12
21.使用驱动器列表框的____属性可以返回或设置磁盘驱动器的名称。A、ChDrive
B、ListIndex
C、List
D、Drive A B C D 22.下面叙述中不正确的是____。
A、随机文件中记录的长度不是固定不变的
B、随机文件由若干条记录组成，并按记录号引用各个记录
C、可以按任意顺序访问随机文件中的数据
D、可以同时对打开的随机文件进行读写操作 A B C D 23.运行时,当用户向文本输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的____事件。
A、Click
B、Db1Click
C、GotFocus
D、Change A B C D 24.如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列____操作步骤。
A、单击“工具”菜单中的“选项”命令，打开“选项”对话框，单击“编辑器”选中“要求变量声名”选项
B、单击“编辑”菜单中的“插入文件”命令
C、单击“工程”菜单中的“添加文件”命令
D、以上操作都不对 A B C D 25.下面的过程定义语句中合法的是____。
A、Sub Procl(ByValn())
B、Sub Procl(n) As Integer
C、Function Procl(Procl)
D、Function Procl(ByVal n) A B C D
全国计算机等级考试二级VB模拟试题12
21.使用驱动器列表框的____属性可以返回或设置磁盘驱动器的名称。A、ChDrive
B、ListIndex
C、List
D、Drive A B C D 22.下面叙述中不正确的是____。
A、随机文件中记录的长度不是固定不变的
B、随机文件由若干条记录组成，并按记录号引用各个记录
C、可以按任意顺序访问随机文件中的数据
D、可以同时对打开的随机文件进行读写操作 A B C D 23.运行时,当用户向文本输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的____事件。
A、Click
B、Db1Click
C、GotFocus
D、Change A B C D 24.如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列____操作步骤。
A、单击“工具”菜单中的“选项”命令，打开“选项”对话框，单击“编辑器”选中“要求变量声名”选项
B、单击“编辑”菜单中的“插入文件”命令
C、单击“工程”菜单中的“添加文件”命令
D、以上操作都不对 A B C D 25.下面的过程定义语句中合法的是____。
A、Sub Procl(ByValn())
B、Sub Procl(n) As Integer
C、Function Procl(Procl)
D、Function Procl(ByVal n) A B C D
全国计算机等级考试二级VB模拟试题12
26.在下述选项中，正确的逻辑表达式是____。A、x MOD 2=0
B、NOT x MOD 20
C、（X\2*2-X）=0
D、NOT（x MOD 2） A B C D 27.在程序代码中将图片文件mypic.jpg装入图片框Picture的语句是____。
A、Picture1.picture="mypic.jpg"
B、Picture.image="mypic,jpg"
C、Picture1.picture=LoadPicture("mypic.jpg")
D、LoadPicture("mypic.jpg") A B C D 28.单击命令按钮时,下列程序代码的执行结果为____。
Public Sub Procl(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m\10
End Sub
Private Sub Command1_Click()
Dim x As Integer,y As Integer
X=12:y=34
Call Procl(x,y)
Print x & ":" & y
End sub
A、12 34
B、2 34
C、2 3
D、12 3 A B C D 29.在窗体上画一个命令按钮，名称为C。程序运行后，如果单击命令按钮，则显示一个输入
对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断
所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能
的代码是
A、Private Sub command1_Click()
x = InputBox("请输入整数")
a = f1(Val(x))
Print a
End Sub
Function f1(b As Integer) As Integer
If b Mod 2 = 0 Then
f1 = 0
Else
f1 = 1
End If
End Function
B、Private Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End IF
End Function
C、Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2 = 0 Then
F1 = 1
Else
F1 = 0
End If
End Function
D、Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2 = 0 Then
Return 0
Else
Return 1
End If
End Function A B C D 30.单击命令按钮时，下列程序代码的执行结果为21，则空白处应填入_____。
Private Function FirProc(x As Integer,y As Integer,z As Inetger)
FirProc=2*x+y+3*z
End Function
Private Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y)+x
End Function
Private Sub Command1_Click( )
Dim a As Integer,b As Integer,c As Integer
a=2:b=3:c=4
Print _____
End Sub
A、SecProc(a,c,b)
B、FirProc(c,b,a)
C、SecProc(c,b,a)
D、FirProc(a,b,c) A B C D
全国计算机等级考试二级VB模拟试题12
二、填空题（每空2分，共计30分）1.在一个容量为15的循环队列中，若头指针front=6，尾指针rear=9，则该循环队列中共有____个元素。 输入答案，中间不含空格: 2.设一线形表中有a1，a2,……a500，500个元素按递增顺序排列，则用二分法查找给定值K，最多需要比较____次。 输入答案，中间不含空格: 3.软件是程序、数据和____的集合。 输入答案，中间不含空格: 4.数据库系统与文件系统的本质区别在于____。 输入答案，中间不含空格: 5.大型数据库的设计通常是MIS系统分析与设计的重要组成部分，数据库设计的方法应该属于____的范畴。 输入答案，中间不含空格:全国计算机等级考试二级VB模拟试题12
6.以下程序判断从InputBox中输入的三个数，如果都为正，显示“POSITIVE!”；如果都为负，显示“NEGATIVE!”；否则显示“NEITHER!”。阅读下列程序，请在____填上正确的内容。private Sub Command1_Click()
a=Val(InputBox(""))
b=Val(InputBox(""))
c=Val(InputBox(""))
If____Then
Print "POSITIVE!"
ElseIf____Then
Print "NEGATIVE!"
Else
Print "NEITHER!"
End If
End Sub 输入答案，中间不含空格: 7.上一题 输入答案，中间不含空格: 8.语句：Timer1.Interval=900（Timer1为窗体中的一个Timer控件）中的900指的是____。 输入答案，中间不含空格: 9.将下列程序补充完整，程序的功能是将文本框中输入的十进制数转换成二进制数。
Private Sub Command1_Click()
Text1.text=""
n=Val(Text1.Text)
Do
k=n Mod 2
n=n \ 2
nk=____
____
Label1.Caption=nk
End Sub 输入答案，中间不含空格: 10.上一题 输入答案，中间不含空格:
全国计算机等级考试二级VB模拟试题12
6.以下程序判断从InputBox中输入的三个数，如果都为正，显示“POSITIVE!”；如果都为负，显示“NEGATIVE!”；否则显示“NEITHER!”。阅读下列程序，请在____填上正确的内容。private Sub Command1_Click()
a=Val(InputBox(""))
b=Val(InputBox(""))
c=Val(InputBox(""))
If____Then
Print "POSITIVE!"
ElseIf____Then
Print "NEGATIVE!"
Else
Print "NEITHER!"
End If
End Sub 输入答案，中间不含空格: 7.上一题 输入答案，中间不含空格: 8.语句：Timer1.Interval=900（Timer1为窗体中的一个Timer控件）中的900指的是____。 输入答案，中间不含空格: 9.将下列程序补充完整，程序的功能是将文本框中输入的十进制数转换成二进制数。
Private Sub Command1_Click()
Text1.text=""
n=Val(Text1.Text)
Do
k=n Mod 2
n=n \ 2
nk=____
____
Label1.Caption=nk
End Sub 输入答案，中间不含空格: 10.上一题 输入答案，中间不含空格:
全国计算机等级考试二级VB模拟试题12
11.下列程序的功能是控制窗体的显示与隐藏，请在____、 ____填上正确答案。Private Sub Form_Click()
Dim Msg As Integer
Form1.____
MsgBox"Choose Ok to make the form reapear."
Form1.____
End Sub 输入答案，中间不含空格: 12.上一题 输入答案，中间不含空格: 13.下面的程序用“冒泡”法将数组a中的10个整数升序排列，请在____、____、 ____处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,87,875,273,823)
For i=____
For j=____
If a(i)____ a(j) Then
a1=a(j)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub 输入答案，中间不含空格: 14.上一题 输入答案，中间不含空格: 15.上一题 输入答案，中间不含空格:
页:
[1]
2