2011年计算机二级VB考试记录文件考前冲刺习题及答案
知识点复习：
记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。
文件：记录的集合，相当于一张表。
文件类型：顺序文件、随机文件、二进制文件。
一 、选择题
（1）由两个栈共享一个存储空间的好处是
A）减少存取时间，降低下溢发生的机率
B）节省存储空间，降低上溢发生的机率
C）减少存取时间，降低上溢发生的机率
D）节省存储空间，降低下溢发生的机率
正确答案： B
（2）设有两个串p和q，求q在p中首次出现位置的运算称作
A）连接
B）模式匹配
C）求子串
D）求串长
正确答案： B
（3）n个顶点的连通图中边的条数至少为
A）0
B）1
C）n-1
D）n
正确答案： C
（4）对象实现了数据和操作的结合，是指对数据和数据的操作进行
A）结合
B）隐藏
C）封装
D）抽象
正确答案： C
（5）下列叙述中，正确的是
A）软件就是程序清单
B）软件就是存放在计算机中的文件
C）软件应包括程序清单及运行结果
D）软件包括程序和文档
正确答案： D
（6）软件设计中，有利于提高模块独立性的一个准则是
A）低内聚低耦合
B）低内聚高耦合
C）高内聚低耦合
D）高内聚高耦合
正确答案： C
（7）软件生命周期中花费时间最多的阶段是
A）详细设计
B）软件编码
C）软件测试
D）软件维护
正确答案： D
（8）下列4项中说法不正确的是
A）数据库减少了数据冗余
B）数据库中的数据可以共享
C）数据库避免了一切数据的重复
D）数据库具有较高的数据独立性
正确答案： C
（9）下列4项中，必须进行查询优化的是
A）关系数据库
B）网状数据库
C）层次数据库
D）非关系模型
正确答案： A
（10）最常用的一种基本数据模型是关系数据模型，它的表示应采用
A）树
B）网络
C）图
D）二维表
正确答案： D
（11）下列说法不正确的是
A）对象的可见性可设为True或False
B）标题的属性值可设为任何文本
C）属性窗口中属性可以按字母顺序排列
D）某些属性的值可以跳过不设置，系统自动设为空值
正确答案： D
（12）要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是
A）设置BoderStyle的值为FixedToolWindow
B）设置BoderStyle的值为Sizable ToolWindow
C）设置BoderStyle的值为FixedDialog
D）设置BoderStyle的值为Sizable
正确答案： C
（13）下面的控件可作为其他控件容器的是
A）PictureBox和Data
B）Frame和Image
C）PictureBox和Frame
D）Image和Data
正确答案： C
（14）如果要将文本框作为密码框使用时，应设置的属性为
A）Name
B）Caption
C）PasswordChar
D）Text
正确答案： C
（15）有关程序代码窗口的说法错误的是
A）在窗口的垂直滚动条的上面，有一个“拆分栏”，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分
B）双击控件设计窗体即可打开程序代码窗口
C）在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看
D）默认情况下，窗体的事件是Load
正确答案： A
（16）VisualBasic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&H，八进制数的开头符号是
A）$O
B）&O
C）$E
D）&E
正确答案： B
（17）MsgBox函数的返回值的类型为
A）数值型
B）变体类型
C）字符串型
D）日期型
正确答案： A
（18）使“计算机技术”在当前窗体上输出的语句是
A）Print “计算机技术”
B）Picture.Print “计算机技术”
C）Printer.Print “计算机技术”
D）Debug.Print “计算机技术”
正确答案： A
（19）用来设置文本框有无滚动条的属性是
A）ScrollBars
B）MultiLine
C）SelText
D）SelLength
正确答案： A
（20）当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为True？
A）Style
B）Default
C）Caption
D）Cancel
正确答案： D
（21）在VisualBasic种，要使标签的标题栏靠右显示，则将其Alignment属性设置为
A）0
B）2
C）1
D）3
正确答案： C
（22）属性BorderColor的作用是
A）设置直线颜色和形状边界颜色
B）设置直线或形状背景颜色
C）设置直线或形状边界线的线型
D）设置形状的内部颜色
正确答案： A
（23）下面哪个程序段能够正确实现如果A《B，则A＝1，否则A＝-1？
A）If A《B Then A=1
A=-1
Print A
B）If A《B Then A=1 ：Print A
A=-1:Print A
C）IfA《B Then
A=1:Print A
Else
A=-1：
End If
D）If A《B Then A=1
A=-1
Print A
Print A
考生答案： 正确答案： C
（24）下列程序段的执行结果为
a=2
b=0
Select Case a
Case 1
Select Caseb
Case 0
Print “**0**”
Case 1
Print “**1**”
End Select
Case 2
Print “**2**”
EndSelect
A）**0**
B）**1**
C）**2**
D）0
正确答案： C
（25）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。
能够正确实现上述功能的程序是
A）Private Sub Dir1_Change（）
File1.Path=Dir1.Path
End Sub
Private Sub Dive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B）Private Sub Dir1_Change（）
File.Path=Dir1.Path
End Sub
PrivateSub Dive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C）Private Sub Dir1_Change（）
File1.Path = Dir1.Path
Label1.Caption = File1.ListCount
EndSub
Private Sub Drive1_Change（）
Dir1.Path = Drive1.Drive
Label1.Caption = File1.ListCount
End Sub
D）Private SubDir1_Change（）
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private SubDive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
正确答案： C
（26）设有声明语句
Option Base 1
Dimb（-1 To 10， 2 To 9， 20）As Integer
则数组b中全部元素的个数
A）2310
B）1920
C）1500
D）1658
正确答案： B
（27）单击命令按钮，下列事件过程的执行结果为
Private Sub Command1_Click（）
Dim x As Integer， y As Integer
x=40： y=72
Call PtoP（x， y）
Print x; y
End Sub
Public SubPtoP（Byval n As Integer， ByVal m As Integer）
n=n ＼ 10+2
m=m ＼10+2
End Sub
A）0 8
B）40 72
C）4 50
D）78 50
正确答案： B
（28）下列程序的执行结果为
Private Sub Command1_Click（）
Dim p AsInteger， q As Integer
p=12： q=20
Call Value（p， q）
Print p;q
End Sub
Private Sub Value（ByVal m As Integer， ByVal n As Integer）
m=m * 2： n=n - 5
Print m; n
End Sub
A）20 12
20 15
B）12 20
12 25
C）24 15
12 20
D）24 12
12 15
正确答案： C
（29）在窗体上画一个命令按钮，然后编写如下程序：
Private SubCommand3_Click（）
Cop 2
Cop 3
Cop 4
End Sub
Sub Cop （aAs Integer）
Static x As Integer
x=x + a
Print x;
EndSub
程序运行后，单击命令按钮，输出结果为
A）2 3 4
B）2 5 9
C）3 5 4
D）2 4 3
正确答案： B
（30）有如下事件过程，单击命令按钮扣，输出结果为
Private SubCommand1_Click（）
Dim b%（1 To 4）， j%， t#
For j=1 To 4
b（j）=j
Next j
t=Tax（b（））
Print “t=”; t，
End Sub
FunctionTax （a（）As Integer）
Dim t#， i%
t=1
For i=2 To UBound（A）
t=t * a（i）
Next i
Tax=t
End Function
A）t＝18
B）t＝24
C）t＝30
D）t＝32
正确答案： B
（31）设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown（KeyCode As Integer， ShiftAs Integer）
Const Alt=4
Const Key_F2=&H71
altdown%=（ShiftAnd Alt）》 0
f2down%=（KeyCode=Key_F2）
If altdown% And f2down%Then
Text1.Text=“abl”
End If
EndSub
程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
A）Alt+F2
B）abl
C）随机出几个数
D）不发生变化
正确答案： D
（32）设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是
A）Private Sub Form_MouseDown（Button As Integer， Shift As Integer，_
X As Single， Y As Single）
If Button=2Then PopupMenu Bt， 2
End Sub
B）Private Sub Form_MouseDown（Button AsInteger， Shift As Integer，
X As Single， Y AsSingle） PopupMenu Bt
End Sub
C）Private SubForm_MouseDown（Button As Integer， Shift As Integer，_
X As Single， Y As Single）
PopupMenuBt，0
End Sub
D）Private Sub Form_MouseDown（Button As Integer， Shift AsInteger， _
X As Single， Y As Single）
If（Button=vbLeftButton）Or （Button=vbRightButton）Then PopupMenu Bt
End Sub
正确答案： A
（33）在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：
Private SubCommand1_Click（）
Cont.FileName=“”
Cont.Flags=vbOFNFileMustExist
Cont.Filter=“All Files|*.*”
Cont.FilterIndex=3
Cont.DialogTitle=“Open File”
Co nt.Action=1
If Cont.FileName=“” Then
MsgBox “No file selected”
Else
Open Cont.FileName For Input As #1
Do While Not EOF（1）
Input #1， b$
Print b$
Loop
End If
EndSub
以下各选项，对上述事件过程描述错误的是
A）该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B）选择后单击“打开”按钮，所选择的文件名即作为对话框的FileName属性值
C）Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D）过程中的“Cont.Action=1”用来建立Open对话框，它与Cont.ShowOpen等价
正确答案： C
（34）已知使用Show方法的格式为：［窗体名称］.Show ［模式］，如果要使窗体是“模态型”窗体，则“模式”值为
A）True
B）0
C）1
D）False
正确答案： C
（35）下面叙述不正确的是
A）对顺序文件中的数据操作只能按一定的顺序操作
B）顺序文件结构简单
C）能同时对顺序文件进行读写操作
D）顺序文件中只能知道第一个记录的位置
正确答案： C