2005年9月
全国计算机等级考试二级笔试试卷 公共基础知识和 Visual Basic 语言程序设计
(考试时间 90 分钟，满分 100 分)
一、选择题 (每小题 2 分,共 70 分 )
下列各题 A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。请将正确选项填涂在答题 卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是 A ．程序设计就是编制程序
C．程序经调试改错后还应进行再测试
C
。
B．程序的测试必须由程序员自己去完成 D．程序经调试改错后不必进行再测试
（2）下列数据结构中，能用二分法进行查找的是 A ．顺序存储的有序线性表 B ．线性链表
A
。
C．二叉链表 C
。
D．有序线性链表
（3）下列关于栈的描述正确的是
A ．在栈中只能插入元素而不能删除元素 B．在栈中只能删除元素而不能插入元素
C．栈是特殊的线性表，只能在一端插入或删除元素
D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 （4）下列叙述中正确的是
D
。
A ．一个逻辑数据结构只能有一种存储结构
B．数据的逻辑结构属于线性结构，存储结构属于非线性结构
C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 （5）下列描述中正确的是
C
。
A ．软件工程只是解决软件项目的管理问题 B．软件工程主要解决软件产品的生产率问题
C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题 （6）在软件设计中，不属于过程设计工具的是 A ． PDL( 过程设计语言 ) （7）下列叙述中正确的是
A ．软件交付使用后还需要进行维护 C．软件交付使用后其生命周期就结束 （8）数据库设计的根本目标是要解决 A ．数据共享问题
B．数据安全问题
B ．PAD 图
A
D
。
C． N-S 图 D． DFD 图 。
B．软件一旦交付使用就不需要再进行维护 D．软件维护是指修复程序中被破坏的指令
A
。
C．大量数据存储问题 D ．简化数据维护
（9）设有如下关系表 : R A 1 2
S
C 2 3
T
C 3
A 1 2 3
B
B 1 2
A 3
B 1
B 1 2 1 。
C 2 3 3
则下列操作中正确的是 A．T＝R∩S
B．T＝R∪S
B
C． T＝R×S
。
D．T＝R/S
（10）数据库系统的核心是 A ．数据模型
B ．数据库管理系统 C．数据库 D．数据库管理员
（11）假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是 A ．只保存窗体模块文件
C．只保存窗体模块和标准模块文件
B
。
B ．分别保存窗体模块、标准模块和工程文件 D ．只保存工程文件
（12）为了清除窗体上的一个控件，下列正确的操作是
C 。
A ．按回车键 B．按 Esc 键
C．选择（单击）要清除的控件，然后按
Del 键
D．选择（单击）要清除的控件，然后按回车键 （13）以下叙述中错误的是
C
。
DblClick 事件
A ．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B．当程序运行时，双击一个窗体，则触发该窗体的 C． Visual Basic 应用程序只能以解释方式执行 D．事件可以由用户引发，也可以由系统引发 （14）设 a=2, b=3, c=4, d=5, 下列表达式的值是
D
。
Not a<=c Or 4*c=b^2 And b<>a+c A ． -1
B ． 1
C． True
D． False
（15）设 a = 5，b = 10 ，则执行 C A ． 5～10
B． 6～9
C． 6～ 10
D． 5～ 9
c = Int((b - a) * Rnd + a) + 1 后，c 值的范围为
。
（16）在窗体上画一个命令按钮，名称为 Private Sub Command1_Click()
a$ = \ b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, b$, c$, 1 End Sub
Command1 ，然后编写如下事件过程：
2
运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 A ． software and hardware
C
。
B． software
C． hardware D． -1
（17）在窗体上画一个命令按钮和一个文本框，其名称分别为 框的 Text 属性设置为空白，然后编写如下事件过程：
Command1 和 Text1，把文本
Private Sub Command1_Click()
a = InputBox(\ b = InputBox(\ Text1.Text = b + a End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入容是A。 A．108
8 和 10，则文本框中显示的内
B． 18
C．810
D．出错
（18）在窗体上画两个文本框，其名称分别为
Text1 和 Text2，然后编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = \ Text2.Text = \ Text1.SetFocus End Sub
Private Sub Text1_Change()
Text2.Text = Mid(Text1.Text, 8) End Sub
程序运行后，如果在文本框 B
。
B ．China
C． Beijing
D． BeijingC
Text1 中输入 BeijingChina ，则在文本框 Text2 中显示的内容是
A ． BeijingChina
（19）在窗体上画一个列表框和一个命令按钮，其名称分别为
List1 和 Command1，然后编
写如下事件过程：
Private Sub Form_Load()
List1.AddItem \ List1.AddItem \ List1.AddItem \ End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount) = \
End Sub
程序运行后，单击命令按钮，其结果为
B
。
Item 3”的后面）
Item 1”的前面）
A ．把字符串“ AAAA ”添加到列表框中，但位置不能确定 B．把字符串“ AAAA ”添加到列表框的最后（即“ C．把列表框中原有的最后一项改为“
AAAA ”
D．把字符串“ AAAA ”插入到列表框的最前面（即“
（20）假定有如下事件过程：
Private Sub Form_Click()
Dim x As Integer, n As Integer x = 1 n = 0
Do While x < 28
x = x * 3 n = n + 1 Loop Print x, n End Sub
程序运行后，单击窗体，输出结果是 A 。A．81
4
B．56
3
C． 28 1
D．243
5（21）有如下程序：
Private Sub Form_Click()
Dim Check, Counter Check = True Counter = 0 Do
Do While Counter < 20
Counter = Counter + 1 If Counter = 10 Then
Check = False Exit Do End If Loop
Loop Until Check = False Print Counter, Check End Sub
程序运行后，单击窗体，输出结果为 D
。A ． 15 0
B． 20 -1
C． 10 True
D ．10 （22）有如下程序： Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i End If Next i Print sum End Sub
4
False
程序运行后，单击窗体，输出结果为
A．12
B． 30
C．24
A
。
D． 18
（23）在窗体上画一个名称为
Text1 的文本框和一个名称为 Command1 的命令按钮， 然后编
写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j Next j Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A
。
A．12
B． 13 C．14 D． 15
（24）在窗体上画一个命令按钮，其名称为
Command1 ，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a1(4, 4), a2(4, 4) For i = 1 To
4
4
For j = 1 To
a1(i, j) = i + j
a2(i, j) = a1(i, j) + i + j
Next j Next i
Print a1(3, 3); a2(3, 3) End Sub
程序运行后，单击命令按钮，在窗体上输出的是
A ． 6
D
。
6
B． 10
5
C． 7
21
D． 6
12
（25）有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr, Sum Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i = 1 To 10
If arr(i) / 3 = arr(i) \\ 3 Then
Sum = Sum + arr(i) End If Next i Print Sum
全国计算机等级考试二级VB语言笔试试题与答案
