全国计算机等级考试二级VB模拟试题17
一、选择题（每题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.已知二叉树的后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是____。
A、acbed
B、decab
C、deabc
D、cedba A B C D 4.用快速排序法对下列关键字序列进行排序，速度最慢的是____。
A、{7，11，19，23，25，27，32}
B、{27，25，32，19，23，7，11}
C、{3，11，19，32，27，25，7}
D、{123，27，7，19，11，25，32} A B C D 5.对建立良好的程序设计风格，下面描述正确的是
A、程序应简单、清晰、可读性好
B、符号名的命名只要符合语法
C、充分考虑程序的执行效率
D、程序的注释可有可无 A B C D
全国计算机等级考试二级VB模拟试题17
6.程序流程图（PED）中的箭头代表的是A、数据流
B、控制流
C、调用关系
D、组成关系 A B C D 7.验收测试是对软件进行______测试。
A、可靠性
B、有效性
C、可维护性
D、可用性 A B C D 8.下列关于关系数据库视图的说法中，哪些是正确的？
I.视图是关系数据库三级模式中的内模式
II.视图能够对机密数据提供一定的安全保护
III.视图对重构数据库提供了一定程度的逻辑独立性
IV.对视图的一切操作最终都要转换为对基本表的操作
V.所有的视图都是可以更新的
A、I、II和III
B、II、III和IV
C、II、III、IV和V
D、都正确 A B C D 9.关系数据库系统采用关系模型作为数据的组织方式。关系模型是谁首先提出的？
A、P.P.S.Chen
B、J.Martin
C、E.F.Codd
D、W.H.Inmon A B C D 10.RDBMS的层次结构按照处理对象的不同，依最高级到最低级的次序来划分，他们是
A、应用层、语言翻译处理层、数据存取层、数据存储层、操作系统层
B、应用层、数据存储层、语言翻译处理层、数据存储层、操作系统层
C、应用层、语言翻译处理层、数据存储层、数据存取层、操作系统层
D、应用层、数据存取层、数据存储层、语言翻译处理层、操作系统层 A B C D
全国计算机等级考试二级VB模拟试题17
11.窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click()
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0
End Sub
程序运行后，单击命令按钮，输出结果为
A、True
B、False
C、-1
D、1 A B C D 12.将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____。
A、文本框中没有内容
B、文本框的MultiLime属性值为False
C、文本框的MultiLine属性值为True
D、文本框的Locked属性值为True A B C D 13.下列符号_____不是VB中的合法变量名。
A、ABCabc
B、bd_1234
C、22wed
D、cmd$ A B C D 14.在用菜单编辑器设计菜单时，必须输入的项是____。
A、快捷键
B、标题
C、索引
D、名称 A B C D 15.将窗体的_____属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。
A、ControlBox
B、Visible
C、Enabled
D、BorderStyle A B C D
全国计算机等级考试二级VB模拟试题17
16.设a="Visual Basic"，下面使b="Basic"的语句是A、b=Lift(a,8,12)
B、b=Mid(a,8,5)
C、b=Right(a,5,5)
D、b=Left(a,8,5) A B C D 17.在设计阶段，在属性窗口设置Text属性时，通过按下Ctrl+Enter组合键实现文本的换行。在运行阶段，如果在窗体上有缺省按钮存在，则必须在文本框中按下____组合键才能移动到下一行。
A、Enter
B、Alt+Enter
C、Ctrl+Shift+Enter
D、Ctrl+Enter A B C D 18.通过设置Line控件的_____属性可以绘制多种形状的图形。
A、Shape
B、Style
C、FillStyle
D、BorderStyle A B C D 19.下面表达式中,____的运算结果与其他三个不同。
A、Exp(-3.5)
B、Int(-3.5)+0.5
C、-Abs(-3.5)
D、Sgn(-3.5)-2.5 A B C D 20.在Visual Basic中绘制直线时，直线的默认名称为_____，其中x为1，2，3，4……。
A、PictureX
B、ImageX
C、LineX
D、ShapeX A B C D 21.要把一个命令按钮设置成无效，应设置其____属性值。
A、Visible
B、Enabled
C、Default
D、Cancel A B C D 22.要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用___语句。
A、Open"StuData.dat"For Output As #2
B、Open"C:StrData.dat"For Input As #2
C、Open"C:StuData.dat"For Output As #2
D、Open"StuData.dat"For Input AS#2 A B C D 23.如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件，那么执行语句Open "C:\StuData. dat" For Append As #1之后将____。
A、删除文件中原有内容
B、保留文件中原有内容，可在文件尾添加新内容
C、保留文件中原有内容，在文件头开始添加新内容
D、以上均不对 A B C D 24.以下叙述错误的是
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定 A B C D 25.有如下程序段
TYPE goods
Num AS INTEGER
Nam AS STRING *13
END TYPE
DIM cloth AS goods
该程序段定义了两个程序成分,它们分别是____。
A、记录类型和记录变量
B、记录类型和数组
C、显示类型和数组
D、记录变量和数组 A B C D 26.下述语句定义的数组元素有____个。
OPTION BASE 1
DIM A(12,8)
A、117
B、128
C、96
D、20 A B C D 27.设有以下循环结构
Do
循环体
Loop While
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体 A B C D 28.在窗体上画一个通用对话框，其Name属性为CommonDialog1（默认值），再画两个命令按钮，Name属性分别为Command1和Command2，然后编写如下过程，试填写空白。
Private Sub Command1_Click()
CommonDialog1.FileName = " "
CommonDialog1.Flags = vbOFileMustExist
CommonDialog1.Filter = _____
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "Open File(*.EXE)"
CommonDialog1.Action = 1
If CommonDialog1.FileName = " " Then
MsgBox "No file selectd"
Else
'对所有选择的文件进行处理
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, A$
Print A$
Loop
End If
End Sub
A、All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT
B、All Files|"*.*"|(*.exe)|"*.exe"|(*.TXT)|"*.TXT"
C、"All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"
D、"All Files|*.*"|"(*.exe)|*.exe"|"(*.TXT)|*.TXT" A B C D 29.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。
http://www.examw.com/ncre2/Files/2006-12/8/11841248.jpg
能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub A B C D 30.下列程序的执行结果为____。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A、I=1
B、I=2
C、I=3
D、I=4 A B C D 31.单击窗体时，下列程序代码的执行结果为____。
Private Sub Form_Click( )
Text 2
End Sub
Private Sub Text(x As Integer)
x=x*2+1
If x
全国计算机等级考试二级VB模拟试题17
21.要把一个命令按钮设置成无效，应设置其____属性值。A、Visible
B、Enabled
C、Default
D、Cancel A B C D 22.要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用___语句。
A、Open"StuData.dat"For Output As #2
B、Open"C:StrData.dat"For Input As #2
C、Open"C:StuData.dat"For Output As #2
D、Open"StuData.dat"For Input AS#2 A B C D 23.如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件，那么执行语句Open "C:\StuData. dat" For Append As #1之后将____。
A、删除文件中原有内容
B、保留文件中原有内容，可在文件尾添加新内容
C、保留文件中原有内容，在文件头开始添加新内容
D、以上均不对 A B C D 24.以下叙述错误的是
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定 A B C D 25.有如下程序段
TYPE goods
Num AS INTEGER
Nam AS STRING *13
END TYPE
DIM cloth AS goods
该程序段定义了两个程序成分,它们分别是____。
A、记录类型和记录变量
B、记录类型和数组
C、显示类型和数组
D、记录变量和数组 A B C D 26.下述语句定义的数组元素有____个。
OPTION BASE 1
DIM A(12,8)
A、117
B、128
C、96
D、20 A B C D 27.设有以下循环结构
Do
循环体
Loop While
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体 A B C D 28.在窗体上画一个通用对话框，其Name属性为CommonDialog1（默认值），再画两个命令按钮，Name属性分别为Command1和Command2，然后编写如下过程，试填写空白。
Private Sub Command1_Click()
CommonDialog1.FileName = " "
CommonDialog1.Flags = vbOFileMustExist
CommonDialog1.Filter = _____
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "Open File(*.EXE)"
CommonDialog1.Action = 1
If CommonDialog1.FileName = " " Then
MsgBox "No file selectd"
Else
'对所有选择的文件进行处理
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, A$
Print A$
Loop
End If
End Sub
A、All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT
B、All Files|"*.*"|(*.exe)|"*.exe"|(*.TXT)|"*.TXT"
C、"All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"
D、"All Files|*.*"|"(*.exe)|*.exe"|"(*.TXT)|*.TXT" A B C D 29.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。
http://www.examw.com/ncre2/Files/2006-12/8/11841248.jpg
能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub A B C D 30.下列程序的执行结果为____。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A、I=1
B、I=2
C、I=3
D、I=4 A B C D 31.单击窗体时，下列程序代码的执行结果为____。
Private Sub Form_Click( )
Text 2
End Sub
Private Sub Text(x As Integer)
x=x*2+1
If x
全国计算机等级考试二级VB模拟试题17
26.下述语句定义的数组元素有____个。OPTION BASE 1
DIM A(12,8)
A、117
B、128
C、96
D、20 A B C D 27.设有以下循环结构
Do
循环体
Loop While
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体 A B C D 28.在窗体上画一个通用对话框，其Name属性为CommonDialog1（默认值），再画两个命令按钮，Name属性分别为Command1和Command2，然后编写如下过程，试填写空白。
Private Sub Command1_Click()
CommonDialog1.FileName = " "
CommonDialog1.Flags = vbOFileMustExist
CommonDialog1.Filter = _____
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "Open File(*.EXE)"
CommonDialog1.Action = 1
If CommonDialog1.FileName = " " Then
MsgBox "No file selectd"
Else
'对所有选择的文件进行处理
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, A$
Print A$
Loop
End If
End Sub
A、All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT
B、All Files|"*.*"|(*.exe)|"*.exe"|(*.TXT)|"*.TXT"
C、"All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"
D、"All Files|*.*"|"(*.exe)|*.exe"|"(*.TXT)|*.TXT" A B C D 29.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。
http://www.examw.com/ncre2/Files/2006-12/8/11841248.jpg
能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub A B C D 30.下列程序的执行结果为____。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A、I=1
B、I=2
C、I=3
D、I=4 A B C D
全国计算机等级考试二级VB模拟试题17
31.单击窗体时，下列程序代码的执行结果为____。Private Sub Form_Click( )
Text 2
End Sub
Private Sub Text(x As Integer)
x=x*2+1
If x
全国计算机等级考试二级VB模拟试题17
二、填空题（每空2分，共计30分）1.用链表表示线性表的优点是____。 输入答案，中间不含空格: 2.结构化程序设计的三种基本逻辑结构为顺序、选择和____ 。 输入答案，中间不含空格: 3.软件工程研究的内容主要包括：____技术和软件工程管理。 输入答案，中间不含空格: 4.实体完整性规则要求主属性____。 输入答案，中间不含空格: 5.E-R数据模型一般在数据库设计的____阶段使用。 输入答案，中间不含空格:全国计算机等级考试二级VB模拟试题17
6. http://www.examw.com/ncre2/Files/2006-12/8/118414225.jpg 输入答案，中间不含空格: 7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f____
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+...+1/n!的值。请填空。 输入答案，中间不含空格: 8. 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下事件过程：
Private Sub Form_Load()
Timer1.Enabled=Falses
Timer1.Interval=____
End Sub
Private Sub Form_Click()
Timer1.Enabled=____
End Sub
Private Sub Timer1_Timer()
Label1.CAption=____
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1分钟变换一次（见图）。请填空。
http://www.examw.com/ncre2/Files/2006-12/8/118414970.jpg 输入答案，中间不含空格: 9.上一题 第 2 空 输入答案，中间不含空格: 10.上一题 第 3 空 输入答案，中间不含空格:
页:
[1]