知识点复习：形参：指出现在Sub 和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。形参可以是：
1）除定长字符串变量之外的合法变量名；
2）后面跟括号的数组名。
实参：是在调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。
51CTO编辑向您推荐：《2011年9月全国计算机等级考试试题及答案》及相关模拟题。
一 、选择题
(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成
A) 动态结构和静态结构
B) 紧凑结构和非紧凑结构
C) 线性结构和非线性结构
D) 内部结构和外部结构
正确答案: C
(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为
A) 12
B) 13
C) 14
D) 15
正确答案: B
(3) 在下列几种排序方法中，要求内存量最大的是
A) 插入排序
B) 选择排序
C) 快速排序
D) 归并排序
正确答案: D
(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是
A) 自顶向下
B) 由底向上
C) 模块化
D) 限制使用goto语句
正确答案: B
(5) 下列不属于软件调试技术的是
A) 强行排错法 B) 集成测试法 C) 回溯法 D) 原因排除法
正确答案: B
(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为
A) PAD图
B) N-S图
C) 结构图
D) 数据流图
正确答案: B
(7) 软件复杂性度量的参数包括
A) 效率 B) 规模 C) 完整性 D) 容错性
正确答案: B
(8) 下列叙述中，不属于数据库系统的是
A) 数据库
B) 数据库管理系统
C) 数据库管理员
D) 数据库应用系统
正确答案: B
(9) 数据库系统的核心是
A) 数据库
B) 数据库管理系统
C) 数据模型
D) 软件工具
正确答案: B
(10) 视图设计一般有3种设计次序，下列不属于视图设计的是
A) 自顶向下
B) 由外向内
C) 由内向外
D) 自底向上
正确答案: B
(11) 下列说法错误的是
A) 标准模块的扩展名是.bas
B) 标准模块由程序代码组成
C) 标准模块只用来定义一些通用的过程
D) 标准模块不附属于任何一个窗体
正确答案: C
(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性
A) Value
B) Visible
C) Default
D) Enabled
正确答案: D
(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是
A) 设置Enabled的值为True
B) 设置TabIndex的值为1
C) 设置TabIndex的值为0
D) 设置Index的值为0
正确答案: C
(14) 下列几项中，属于合法的日期型常量的是
A) "10/10/02"
B) 10/10/02
C) {10/10/02}
D) #10/10/02#
正确答案: D
(15) 下列程序段的执行结果为
A=2
B=5
If A * B < 1 Then B=B - 1 Else B=-1
Print B - A > 0
A) True
B) False
C) -1
D) 1
正确答案: B
(16) 以下语句的输出结果是
a=Sqr(26)
Print Format$ (a, "$####.###")
A) $5.099
B) 5.099
C) 5099
D) $0005.099
正确答案: A
(17) 标签控件能够显示文本信息，决定其文本内容的属性是
A) Alignment
B) Caption
C) Visible
D) BorderStyle
正确答案: B
(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是
A) CurrentY
B) Picture
C) CurrentX
D) Caption
正确答案: B
(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是
A) 命令按钮
B) 图片框
C) 复选框
D) 单选按钮
正确答案: A
(20) 当直线或形状的BorderStyle属性设置为1时，控件是
A) 虚线
B) 点线
C) 不可见
D) 实线
正确答案: D
(21) 通过设置何属性可以改变所画图形的形状？
A) Shape
B) Index
C) Enabled
D) Height
正确答案: A
(22) 在窗体上画一个命令按钮，然后编写如下事件过程：
- Private Sub Command1_Click()
- s=1
- Do
- s=(s + 1) * (s + 2)
- Number=Number + 1
- Loop Until s >=30
- Print Number, s
- End Sub
程序运行后，输出的结果是
A) 2 3
B) 2 56
C) 5 12
D) 10 20
正确答案: B
(23) 下列程和序段的执行结果为
- x=Int(Rnd() + 9)
- Select Case x
- Case 10
- Print "excellent"
- Case 9
- Print "good"
- Case 8
- Print "pass"
- Case Else
- Print "fail"
- End Select
A) excellent
B) good
C) pass
D) fail
正确答案: B
(24) 下列程序段的执行结果为
a=75
If a > 60 Then Score=1
If a > 70 Then Score=2
If a > 80 Then Score=3
If a > 90 Then Score=4
Print " Score="; Score
A) Score＝1
B) Score＝2
C) Score＝3
D) Score＝4
正确答案: B
(25) 下列程序段的执行结果为
I=1
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I＝4 x＝5
B) I＝7 x＝15
C) I＝6 x＝8
D) I＝7 x＝17
正确答案: D
(26) 下面的程序的运行结果是
a=1
b=1
Do
a=a^2
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A) k＝7 b＝14
B) k＝6 b＝6
C) k＝4 b＝8
D) k＝1 b＝7
正确答案: D
(27) 单击命令按钮，下列程序的执行结果为
- Private Sub Command1_Click()
- Dim x As Integer, y As Integer
- x=32: y=42
- Call PCS(x, y)
- Print x; y
- End Sub
- Public Sub PCS(Byval n As Integer, ByVal m As Integer)
- n=n Mod 10+1
- m=m Mod 10+1
- End Sub
A) 32 42
B) 2 32
C) 2 3
D) 12 3
正确答案: A
(28) 下列程序的执行结果为
- Private Sub Command1_Click()
- Dim s1 As String, s2 As String
- s1="abcd"
- Call Transfer(s1, s2)
- Print s2
- End Sub
- Private Sub Transfer (ByVal xstr As String, ystr As String)
- Dim tempstr As String
- i=Len(xstr)
- Do While i >=1
- tempstr=tempstr + Mid(xstr, i, 1)
- i=i - 1
- Loop
- ystr=te mpstr
- End Sub
A) dcba
B) abdc
C) abcd
D) dabc
正确答案: A
(29) 单击命令按钮，下列程序的执行结果是
- Private Sub Blck(x As Integer)
- x=x * 2 + 1
- If x < 6 Then
- Call Blck(x)
- End If
- x=x * 2 + 1
- Print x;
- End Sub
- Private Sub Command1_Click()
- Blck 2
- End Sub
A) 23 47
B) 10 36
C) 22 44
D) 24 50
正确答案: A
(30) 有如下程序：
- Private Sub Command1_Click()
- Dim a As Integer
- a=2
- For i=1 To 3
- Print Gad (A)
- Next i
- End Sub
- Function Gad (a As Integer)
- b=0
- Static c
- b=b + 1
- c=c + 1
- Gad=a + b + c
- End Function
运行上面的程序后，单击命令按钮，输出结果为
A)1 2 3
B) 2 3 4
C) 4 5 6
D) 1 4 6
正确答案: C
(31) 下列过程定义语句中，参数不是对象的定义语句是
A) Sub Pro4(x As Form)
B) Sub Pro4(y As Control)
C) Sub Pro4(Form1 As Form,Labell As Control)
D) Sub Pro4(x As Currency)
正确答案: D
(32) 下列说法正确的是
A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器
B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器
D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
正确答案: D
(33) 下列各选项说法错误的一项是
A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框
B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性
C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件
D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题
正确答案: B
(34) 下列数组定义语句错误的是
A)k%=10
Dim Arr(k)
B)Const k%=10
Dim Arr(k)
C)Dim Arr1(10) As Integer
Dim Arr2 (10)
D)Dim Arr1(1 To 10)
Dim Arr2(1 To 10, 2 To 11)
正确答案: A
(35) 在Visual Basic中按文件的数据性质不同，可将文件分为
A) 数据文件和程序文件
B) 文本文件和数据文件
C) 顺序文件和随机文件
D) ASCII文件和二进制文件
正确答案: A
#p#
二 、填空题
(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的 【1】 。
正确答案: 1.(时间复杂度和空间复杂度)
(2) 数据结构包括数据的逻辑结构、数据的 【2】 以及对数据的操作运算。
正确答案: 1.(存储结构)
(3) 可以把具有相同属性的一些不同对象归类，称为 【3】 。
正确答案: 1.(对象类)
(4) 软件工程包括3个要素，分别为方法、工具和 【4】 。
正确答案: 1.(过程)
(5) 由关系数据库系统支持的完整性约束是指 【5】 和参照完整性。
正确答案: 1.(实体完整性)
(6) 表达式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是 【6】
正确答案: 1.(0)
(7) 我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。
- Private Sub Command1_Click()
- Dim Cock As Integer
- Dim Hen As Integer
- Dim Chick As Integer
- Form1.Print "公鸡数", "母鸡数", "雏鸡数"
- For Cock=0 To 20
- For Hen=0 To 33
- For Chick=0 To 100
- If 【7】 Then
- Form1.Print Cock, Hen, Chick
- End If
- Next Chick
- Next Hen
- Next Cock
- End Sub
正确答案: 1.(Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + )
(8) 每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为 【8】 ，Picture的前缀为 【9】 。
正确答案: 1.(img) 2.(pic)
(9) 在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。
- Private Sub Disp_Click
- Me.Hide
- Form2. 【10】
- End Sub
正确答案: 1.(Show)
(10) 在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 【11】 事件，当对象失去焦点时将触发 【12】 事件。
正确答案: 1.(GotFocus) 2.(LostFocus)
(11) 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
- Sub GASR()
- Dim m
- m=Array(10, 1, 5, 6, 7)
- For i=0 To 3
- For j= 【13】
- If m(i) >=m(j) Then
- 【14】
- m(i) =m(j)
- m(j) =t
- End If
- Next j
- 【15】
- For i=0 To 4
- Print m(i)
- Next i
- End Sub
正确答案: 1.(i +1 To 4) 2.(t = m(i)) 3.( Next i)
