| 全国计算机等级考试 历年真题 2007年4月计算机等级考试二级VB考前密卷(4) |
一、选择题（每题2分，共计70分） |
|
|
|
2.已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是
A) acbed
B) decab
C) deabc
D) cedba
|
|
A
B
C
D
|
3.链表不具有的特点是
A) 不必事先估计存储空间
B) 可随机访问任一元素
C) 插入删除不需要移动元素
D) 所需空间与线性表长度成正比
|
|
A
B
C
D
|
4.结构化程序设计的3种结构是
A) 顺序结构、选择结构、转移结构
B) 分支结构、等价结构、循环结构
C) 多分支结构、赋值结构、等价结构
D) 顺序结构、选择结构、循环结构
|
|
A
B
C
D
|
5.为了提高测试的效率，应该
A) 随机选取测试数据
B) 取一切可能的输入数据作为测试数据
C) 在完成编码以后制定软件的测试计划
D) 集中对付那些错误群集的程序
|
|
A
B
C
D
|
6.算法的时间复杂度是指
A) 执行算法程序所需要的时间
B) 算法程序的长度
C) 算法执行过程中所需要的基本运算次数
D) 算法程序中的指令条数
|
|
A
B
C
D
|
7.软件生命周期中所花费用最多的阶段是
A) 详细设计
B) 软件编码
C) 软件测试
D) 软件维护
|
|
A
B
C
D
|
8.数据库管理系统DBMS中用来定义模式、内模式和外模式的语言为
A) C
B) Basic
C) DDL
D) DML
|
|
A
B
C
D
|
9.下列有关数据库的描述，正确的是
A) 数据库是一个DBF文件
B) 数据库是一个关系
C) 数据库是一个结构化的数据集合
D) 数据库是一组文件
|
|
A
B
C
D
|
10.下列有关数据库的描述，正确的是
A) 数据处理是将信息转化为数据的过程
B) 数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变
C) 关系中的每一列称为元组，一个元组就是一个字段
D) 如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系
的关键字，则称其为本关系的外关键字
|
|
A
B
C
D
|
11.关于Visual Basic"方法"的概念错误的是
A) 方法是对象的一部分
B) 方法是预先定义好的操作
C) 方法是对事件的响应
D) 方法用于完成某些特定的功能
|
|
A
B
C
D
|
12.下列说法有错误的是
A) 默认情况下，属性Visible的值为False
B) 如果设置控件的Visible属性为False，则运行时控件会隐藏
C) Visible的值可设为True或者False
D) 设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态
|
|
A
B
C
D
|
13.下列各控件不包含滚动条的控件是
A) ListBox
B) ComboBox
C) TextBox
D) LabelBox
|
|
A
B
C
D
|
14.如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是
A) Redim a As Integer
B) Static a As Integer
C) Public a As Integer
D) Dim a As Integer
|
|
A
B
C
D
|
15.声明一个变量为局部变量应该用
A) Global
B) Private
C) Static
D) Public
|
|
A
B
C
D
|
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
B
C
D
|
17.以下各项中，Visual Basic不能接收的图形文件是
A) .ico文件
B) .jpg文件
C) .psd文件
D) .bmp文件
|
|
A
B
C
D
|
18.下面的属性中，用于自动调整图像框中图形内容的大小的是
A) Picture
B) CurentY
C) CurrentX
D) Stretch
|
|
A
B
C
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)
|
|
A
B
C
D
|
20.只有将组合框的Style属性设置为何值时，才能触发DblClick事件？
A) 0
B) 1
C) 2
D) 3
|
|
A
B
C
D
|
21.以下属于Visual Basic合法的数组元素是
A) x8
B) x［8］
C) s(0)
D) v［8］
|
|
A
B
C
D
|
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
|
|
A
B
C
D
|
23.要使菜单项MenuOne在程序运行时失效，使用的语句是
A) MenuOne.Visible=True
B) MenuOne.Visible=False
C) MenuOne.Enabled=True
D) MenuOne.Enabled=False
|
|
A
B
C
D
|
24.在窗体上建立通用对话框需要添加的控件是
A) Data控件
B) From控件
C) CommonDialog控件
D) VBComboBox控件
|
|
A
B
C
D
|
25.在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是
A) Load
B) Show
C) Hide
D) Unload
|
|
A
B
C
D
|
26.运行下列程序段后，显示的结果为
J1=23
J2=32
If J1<J2 Then Print J2 Else Print J1
A) 23
B) 32
C) 55
D) 2332
|
|
A
B
C
D
|
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"
|
|
A
B
C
D
|
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
B
C
D
|
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
B
C
D
|
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
B
C
D
|
31.不能脱离控件(包括客体) 而独立存在的过程是
A) 事件过程
B) 通用过程
C) Sub过程
D) 函数过程
|
|
A
B
C
D
|
32.Sub过程与Function过程最根本的区别是
A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B) Function过程可以有形参，Sub过程不可以
C) Sub过程不能返回值，而Function过程能返回值
D) 两种过程参数的传递方式不同
|
|
A
B
C
D
|
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
|
|
A
B
C
D
|
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
|
|
A
B
C
D
|
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
|
|
A
B
C
D
|
二、填空题（每空2分，共计30分） |
| 1.算法的基本特征是可行性、确定性、 【1】 和拥有足够的情报。
|
| 输入答案，中间不含空格:
|
2.在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为 【2】 。
|
| 输入答案，中间不含空格:
|
| 3.在面向对象的程序设计中，类描述的是具有相似性质的一组 【3】 。
|
| 输入答案，中间不含空格:
|
| 4.通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 【4】 。
|
| 输入答案，中间不含空格:
|
| 5.数据库管理系统常见的数据模型有层次模型、网状模型和 【5】 3种。
|
| 输入答案，中间不含空格:
|
| 6.Visual Basic对象可以分为两类，分别为 【6】 和 【7】 。
|
| 输入答案，中间不含空格:
|
| 7.上一题【7】
|
| 输入答案，中间不含空格:
|
8.完成下面的程序，使显示结果如下图所示。
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
|
| 输入答案，中间不含空格:
|
| 9.上一题【9】
|
| 输入答案，中间不含空格:
|
10.下列程序的功能是：当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
|
| 输入答案，中间不含空格:
|
| 11.上一题【11】
|
| 输入答案，中间不含空格:
|
| 12.改变驱动器列表框的Drive属性值将引发 【12】 事件。
|
| 输入答案，中间不含空格:
|
13.下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，
双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
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
|
| 输入答案，中间不含空格:
|
| 14.上一题【14】
|
| 输入答案，中间不含空格:
|
| 15.上一题【15】
|
| 输入答案，中间不含空格:
|
Hi,亲爱的朋友，欢迎光临Passtwo！
您想做点什么呢？
I Want....
热门软件下载
实用电子地图
本站隆重推荐自主开发的VFP上机模拟系统免费下载使用
二级vfp上机模拟系统
|
