9月全国计算机等级考试二级VB语言笔试试题及答案

2005年9月

全国计算机等级考试二级笔试试卷 公共基础知识和Visual Basic语言程序设计

(考试时间90分钟，满分100分)

一、选择题(每小题2分,共70分)

下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）下列叙述中正确的是 C 。

A．程序设计就是编制程序 B．程序的测试必须由程序员自己去完成 C．程序经调试改错后还应进行再测试 D．程序经调试改错后不必进行再测试

（2）下列数据结构中，能用二分法进行查找的是 A 。

A．顺序存储的有序线性表 B．线性链表 C．二叉链表 D．有序线性链表

（3）下列关于栈的描述正确的是 C 。 A．在栈中只能插入元素而不能删除元素 B．在栈中只能删除元素而不能插入元素

C．栈是特殊的线性表，只能在一端插入或删除元素

D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

（4）下列叙述中正确的是 D 。 A．一个逻辑数据结构只能有一种存储结构

B．数据的逻辑结构属于线性结构，存储结构属于非线性结构

C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率

（5）下列描述中正确的是 C 。 A．软件工程只是解决软件项目的管理问题 B．软件工程主要解决软件产品的生产率问题

C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题

（6）在软件设计中，不属于过程设计工具的是 D 。 A．PDL(过程设计语言) B．PAD图 C．N-S图 D．DFD图

（7）下列叙述中正确的是 A 。

A．软件交付使用后还需要进行维护 B．软件一旦交付使用就不需要再进行维护 C．软件交付使用后其生命周期就结束 D．软件维护是指修复程序中被破坏的指令

（8）数据库设计的根本目标是要解决 A 。

A．数据共享问题 B．数据安全问题 C．大量数据存储问题 D．简化数据维护

（9）设有如下关系表: R S A 1 2 B 1 2 C 2 3 A 3 B 1 C 3 T A 1 2 3 B 1 2 1 C 2 3 3

则下列操作中正确的是 B 。

A．T＝R∩S B．T＝R∪S C．T＝R×S D．T＝R/S

（10）数据库系统的核心是 B 。

A．数据模型 B．数据库管理系统 C．数据库 D．数据库管理员

（11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 B 。

A．只保存窗体模块文件 B．分别保存窗体模块、标准模块和工程文件 C．只保存窗体模块和标准模块文件 D．只保存工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是 C 。 A．按回车键 B．按Esc键

C．选择（单击）要清除的控件，然后按Del键 D．选择（单击）要清除的控件，然后按回车键

（13）以下叙述中错误的是 C 。

A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B．当程序运行时，双击一个窗体，则触发该窗体的DblClick事件 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 = Int((b - a) * Rnd + a) + 1 后，c值的范围为 C 。 A．5～10 B．6～9 C．6～10 D．5～9

（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a$ = \ b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, b$, c$, 1 End Sub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 C 。 A．software and hardware B．software C．hardware D．-1

（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(\ b = InputBox(\ Text1.Text = b + a End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 A 。

A．108 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

程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是 B 。

A．BeijingChina B．China C．Beijing D．BeijingC

（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 。 A．把字符串“AAAA”添加到列表框中，但位置不能确定

B．把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面） C．把列表框中原有的最后一项改为“AAAA”

D．把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）

（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 False

（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

程序运行后，单击窗体，输出结果为 A 。 A．12 B．30 C．24 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 For j = 1 To 4 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

程序运行后，单击命令按钮，在窗体上输出的是 D 。 A．6 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

本文来源：https://www.bwwdw.com/article/db82.html