2022年计算机等级考试二级VB题库
(1) 栈和队列的共同特点是
A) 都是先进先出
B) 都是先进后出
C) 只允许在端点处插入和删除元素
D) 没有共同点
答案： C
(2) 已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是
A) acbed
B) decab
C) deabc
D) cedba今日玉米价一斤多少钱
答案：D
(3) 链表不具有的特点是
A) 不必事先估量存储空间
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) 集中应付那些错误集的程序
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人世间郝冬梅结局
(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) 假如一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则
C) DDL
D) DML
答案：C
(9) 以下有关数据库的描述，正确的选项是
A) 数据库是一个DBF文件
B) 数据库是一个关系
C) 数据库是一个构造化的数据集合
D) 数据库是一组文件
答案：C
(10) 以下有关数据库的描述，正确的选项是
A) 数据处理是将信息转化为数据的过程
B) 数据的物理独立性是指当数据的规律构造转变时，数据的存储构造不变
C) 关系中的每一列称为元组，一个元组就是一个字段
D) 假如一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则
称其为本关系的外关键字
答案：D
(11) 关于Visual Basic“方法“的概念错误的选项是
A) 方法是对象的一局部
B) 方法是预先定义好的操作
C) 方法是对大事的响应
D) 方法用于完成某些特定的功能
答案：C
(12) 以下说法有错误的选项是
A) 默认状况下，属性Visible的值为True
B) 假如设置控件的Visible属性为False，则运行时控件会隐蔽
二级VBC) Visible的值可设为True或者False
D) 设置Visible属性同设置Enabled属性的功能是一样的，都是使控件处于失效状态
答案：D
(13) 以下各控件不包含滚动条的控件是
答案：D
(11) 关于Visual Basic“方法“的概念错误的选项是
A) 方法是对象的一局部
B) 方法是预先定义好的操作
C) 方法是对大事的响应
D) 方法用于完成某些特定的功能
答案：C
(12) 以下说法有错误的选项是
A) 默认状况下，属性Visible的值为True
B) 假如设置控件的Visible属性为False，则运行时控件会隐蔽
二级VBC) 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选中
答案：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$) y-x
A) -3 3
B) 5 -9
C) 3 -3
D) -6 5
答案：A
(31) 不能脱离控件(包括客体) 而独立存在的过程是
A) 大事过程
B) 通用过程
C) Sub过程
D) 函数过程
A) y=x$+List1.List(0)
B) y=x$+List1.List(1)
C) y=Val(x$) +Val(List1.List(0) )
D) y=Val(x$) y-x
A) -3 3
B) 5 -9
C) 3 -3
D) -6 5
答案：A
(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)
(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)
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=2 x+y+3 z
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
Function FirProc(x As Integer, y As Integer, z As Integer)
FirProc=2 x+y+3 z
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 i100时，没有意义。请填空。方逸华照片
Private Sub Command1_Click()
Dim x As Single
x=InputBox(“请输入x的值！“)
【10】
Case Is < 50
y=0.8 * x
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 i100时，没有意义。请填空。方逸华照片
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
正确答案：Select Case x
正确答案：Case Else
(9) 转变驱动器列表框的Drive属性值将引发 【12】 大事。
正确答案：Change
(10) 下面程序是由鼠标大事在窗体上画图，假如按下鼠标将可以画图，双击窗体可以去除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
y=0.7 * x
【11】
Print “输入的数据出界！“
End Select
Print x, y
End Sub
正确答案：Select Case x
正确答案：Case Else
(9) 转变驱动器列表框的Drive属性值将引发 【12】 大事。
正确答案：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_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
X As Single, Y As Single)
【14】
穷人创业好项目End Sub
Private Sub Form_DblClick()
【15】
End Sub
发布评论