一 、选择题
(1) 栈和队列的共同特点是
A) 都是先进先出
B) 都是先进后出
C) 只允许在端点处插入和删除元素
D) 没有共同点
正确答案: C
(2) 已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是
A) acbed
B) decab
C) deabc
D) cedba
正确答案: D
(3) 链表不具有的特点是
A) 不必事先估计存储空间
B) 可随机访问任一元素
C) 插入删除不需要移动元素
D) 所需空间与线性表长度成正比
正确答案: B
(4) 结构化程序设计的3种结构是
A) 顺序结构、选择结构、转移结构
B) 分支结构、等价结构、循环结构
C) 多分支结构、赋值结构、等价结构
D) 顺序结构、选择结构、循环结构
正确答案: D
(5) 为了提高测试的效率，应该
A) 随机选取测试数据
B) 取一切可能的输入数据作为测试数据
C) 在完成编码以后制定软件的测试计划
D) 集中对付那些错误群集的程序
正确答案: D
(6) 算法的时间复杂度是指
A) 执行算法程序所需要的时间
B) 算法程序的长度
C) 算法执行过程中所需要的基本运算次数
D) 算法程序中的指令条数
正确答案: C
(7) 软件生命周期中所花费用最多的阶段是
A) 详细设计
B) 软件编码
C) 软件测试
D) 软件维护
正确答案: D
(8) 数据库管理系统DBMS中用来定义模式、内模式和外模式的语言为
A) C
B) Basic
C) DDL
D) DML
正确答案: C
(9) 下列有关数据库的描述，正确的是
A) 数据库是一个DBF文件
B) 数据库是一个关系
C) 数据库是一个结构化的数据集合
D) 数据库是一组文件
正确答案: C
(10) 下列有关数据库的描述，正确的是
A) 数据处理是将信息转化为数据的过程
B) 数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变
C) 关系中的每一列称为元组，一个元组就是一个字段
D) 如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字
正确答案: D
希望与更多计算机等级考试的网友交流，
.
www.59wj.com(11) 关于Visual Basic"方法"的概念错误的是
A) 方法是对象的一部分
B) 方法是预先定义好的操作
C) 方法是对事件的响应
D) 方法用于完成某些特定的功能
正确答案: C
(12) 下列说法有错误的是
A) 默认情况下，属性Visible的值为False
B) 如果设置控件的Visible属性为False，则运行时控件会隐藏
C) Visible的值可设为True或者False
D) 设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态
正确答案: D
(13) 下列各控件不包含滚动条的控件是
A) ListBox
B) ComboBox
C) TextBox
D) LabelBox
正确答案: D
(14) 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是
A) Redim a As Integer
B) Static a As Integer
C) Public a As Integer
D) Dim a As Integer
正确答案: B
(15) 声明一个变量为局部变量应该用
A) Global
B) Private
C) Static
D) Public
正确答案: C
(16) 执行x$=InputBox("请输入x的值") 时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456) ，使有的值使123456的语句是
A) y=x$+List1.List(0)
B) y=x$+List1.List(1)
C) y=Val(x$) +Val(List1.List(0) )
D) y=Val(x$) & Val(List1.List(1) )
正确答案: A
(17) 以下各项中，Visual Basic不能接收的图形文件是
A) .ico文件
B) .jpg文件
C) .psd文件
D) .bmp文件
正确答案: C
(18) 下面的属性中，用于自动调整图像框中图形内容的大小的是
A) Picture
B) CurentY
C) CurrentX
D) Stretch
正确答案: D
(19) 下面有关注释语句的格式，错误的是
A) Rem注释内容
B) ′注释内容
C) a=3:b=2 ′对a、b赋值
D) Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single)
正确答案: D
(20) 只有将组合框的Style属性设置为何值时，才能触发DblClick事件？
A) 0
B) 1
C) 2
D) 3
正确答案: B
希望与更多计算机等级考试的网友交流，
.
www.59wj.com(21) 以下属于Visual Basic合法的数组元素是
A) x8
B) x［8］
C) s(0)
D) v［8］
正确答案: C
(22) 编写如下两个事件过程：
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序，如果按"A"键，则程序输出的结果是
A) A
a
B) a
A
C) A
A
D) a
a
正确答案: C
(23) 要使菜单项MenuOne在程序运行时失效，使用的语句是
A) MenuOne.Visible=True
B) MenuOne.Visible=False
C) MenuOne.Enabled=True
D) MenuOne.Enabled=False
正确答案: D
(24) 在窗体上建立通用对话框需要添加的控件是
A) Data控件
B) From控件
C) CommonDialog控件
D) VBComboBox控件
正确答案: C
(25) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是
A) Load
B) Show
C) Hide
D) Unload
正确答案: A
(26) 运行下列程序段后，显示的结果为
J1=23
J2=32
If J1<J2 Then Print J2 Else Print J1
A) 23
B) 32
C) 55
D) 2332
正确答案: B
(27) 下列语句正确的是
A) If A≠B Then Print "A不等于B"
B) If A<>B Then Printf "A不等于B"
C) If A<>B Then Print "A不等于B"
D) If A≠B Print "A不等于B"
正确答案: C
(28) 下面语句正确的是
A) If x<3y And x>y Then y=x^3
B) If x<3y And x>y Then y=3x
C) If x<3y:x>y Then y=x^3
D) If x<3y And x>y Then y=x* *3
正确答案: A
(29) 计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是
A) If x>=y Then z=x : z=y
B) If x>=y Then z=x Else z=y
C) z=y : If x>=y Then z=x
D) If x<=y Then z=y Else z=x
正确答案: A
(30) 下列程序段执行结果为
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A) -3 3
B) 5 -9
C) 3 -3
D) -6 5
正确答案: A
www.59wj.com
(31) 不能脱离控件(包括客体) 而独立存在的过程是
A) 事件过程
B) 通用过程
C) Sub过程
D) 函数过程
正确答案: A
(32) Sub过程与Function过程最根本的区别是
A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B) Function过程可以有形参，Sub过程不可以
C) Sub过程不能返回值，而Function过程能返回值
D) 两种过程参数的传递方式不同
正确答案: C
(33) 单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12:y=32
Call Proc(x,y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A) 1232
B) 232
C) 23
D) 123
正确答案: B
(34) 单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3
b=4
c=5
Print SecProc(c, b, A)
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
FirProc=2x+y+3z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y) +x
End Function
A) 20
B) 22
C) 28
D) 30
正确答案: C
(35) 下列程序的执行结果为
Private Sub Command1_Click()
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
Do While i<=Len(xStr) -3
tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1)
i=i+1
Loop
Pat=tempStr
End Function
A) abcdef
B) afbecd
C) fedcba
D) defabc
正确答案: B
www.59wj.com
二 、填空题
(1) 算法的基本特征是可行性、确定性、 【1】 和拥有足够的情报。
正确答案: 1.(有穷性)
(2) 在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为 【2】 。
正确答案: 1.(log2n)
(3) 在面向对象的程序设计中，类描述的是具有相似性质的一组 【3】 。
正确答案: 1.(对象)
(4) 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 【4】 。
正确答案: 1.(软件生命周期)
(5) 数据库管理系统常见的数据模型有层次模型、网状模型和 【5】 3种。
正确答案: 1.(关系模型)
(6) Visual Basic对象可以分为两类，分别为 【6】 和 【7】 。
正确答案: 1.(预定义对象) 2.(用户定义对象)
(7) 完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Sample＄=" 【8】 "
x=(ScaleWidth-TextWidth(Sample＄) ) /2
y=(ScaleHeight-TextHeight(Sample＄) ) /2
CurrentX=x
CurrentY=y
【9】 Sample＄
End Sub
正确答案: 1.(Welcome to Beijing !) 2.(Print)
(8) 下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值！")
【10】
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【11】
Print "输入的数据出界！"
End Select
Print x, y
End Sub
正确答案: 1.(Select Case x) 2.(Case Else)
www.59wj.com
(9) 改变驱动器列表框的Drive属性值将引发 【12】 事件。
正确答案: 1.(Change)
(10) 下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【13】
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【14】
End Sub
Private Sub Form_DblClick()
【15】
End Sub
正确答案: 1.(PaintStart = True) 2.(PaintStart = False) 3.(Cls)
希望与更多计算机等级考试的网友交流，
.
www.59wj.com 如果觉得《2011年9月计算机二级VB模拟试题(5)及答案》VB模拟题,jsj不错，可以推荐给好友哦。