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

一、选择题(每小题2分，共70分)
下列问题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请在答题卡相应位置填写正确选项，试卷上不计分。
(1)下列说法正确的是
A .程序设计就是编程
B .程序的测试必须由程序员自己完成
C .程序在调试和纠错后应重新测试
D .程序在调试和纠错后， 不需要重新测试程序
用二分法可以搜索到的是
A .按顺序存储的有序线性链表
B .线性链表
C .二叉链表
D .有序线性链表
(3)下列关于栈的描述正确的是
A .在栈中，只有b .只能删除元素而不能插入栈
C .栈是一种特殊的线性表， 而且只能在一端插入或删除元素
D. Stack是特殊的线性表，只能在一端插入元素。 并删除另一端的元素
。(4)下列说法正确的是
A .一个逻辑数据结构只能有一个存储结构
B .数据的逻辑结构属于线性结构，存储结构属于非线性结构
C .一个逻辑数据结构可以有多个存储结构，各种存储结构不影响数据处理的效率
D .一个逻辑数据结构可以有多个存储结构， 以及各种存储结构影响数据处理的效率
(5)下列描述正确的是
A .软件工程只解决软件项目的管理问题
B .软件工程主要解决软件产品的生产力问题
C .软件工程的主要思想是强调工程原理在软件开发过程中的应用
D .软件工程只解决软件开发中的技术问题
(6)在软件设计中， 不属于过程设计工具的是
A. PDL(过程设计语言)
B. Pad图
C. N-S图
D. DFD图
(7)下列说法正确的是
A. B .软件一旦交付使用，就不需要维护
C .软件交付使用后，其生命周期结束
D .软件维护是指修复 c .海量数据存储问题
D .简化数据维护
(9)有以下关系表:
r s t
a b c a b c a b c c
1 1 2 3 1 2[/br]2 2 3 2 3
下列运算中正确的一项是
a . t = r∪s
b . t = r∪s
c

(11)假设一个Visual Basic应用程序由一个表单模块和一个标准模块组成。为了保存此应用程序，下列正确的操作是
A .只保存表单模块文件
B .分别保存表单模块、标准模块和项目文件
C .只保存表单模块和标准模块文件
D .只保存项目文件
(12)为了清除一个下列正确的操作是
A .按ENTER
B .按Esc
C .选择(单击)要清除的控件， 然后按Del
D .选择(单击)要清除的控件，然后按ENTER
(13系统自动加载与项目相关的文件，如窗体和标准模块
B .程序运行时，双击一个窗体，就会触发窗体的DblClick事件
C. Visual Basic应用程序只能以解释性方式执行
D .事件可以由用户触发，也可以由系统触发
(14)。 B=3，c=4，d=5，下面表达式的值是
not aa+c
a .-1
b . 1
c . true
d . false
(11 After
c = int((b-a)* rnd+a)+1
，c值的范围是
A.5 ~ 10
B.6 ~ 9 [然后编写下面的事件过程:
private subcommand 1 _ click()
a $ = "软件和硬件"
b $ = right (a $，8)
c $ = mid (a $，1，8) [/br，b $，c $，1
End Sub
运行程序，单击命令按钮，
a .软件和硬件
b .软件
c .硬件
在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1。将文本框的Text属性设置为空 white，然后编写以下事件过程:
private subcommand 1 _ Click()
A = InputBox(" enter A integer ")
B = InputBox(" enter A integer ")
1。text = b+a
end sub
程序运行后，单击命令按钮。如果在输入对话框中分别输入8和10，那么文本框中显示的内容是
a . 108
b . 18
c . 810
d .错误
(18)在窗体上画两个文本框，它们的名称分别是Text1和Text2，然后编写下面的程序:
private subform _ load()
show
text 1 = " "
8)
end sub
程序运行后，如果在text1中输入BeijingChina，那么在Text2文本框中显示的内容是
A . Beijing China
B . China
C . Beijing
D . Beijing C .
(19)在窗体上绘制一个列表框和一个命令按钮，其名称分别为List1和Command1， 然后编写以下事件过程:[/Br/]Private subform _ load()[/Br/]list 1 . additem " item 1 "[/Br/]list 1 . additem " item 2 "[/Br/]list 1 . additem " item 3 "[/Br/]End sub[/Br/]Private subcommand 1 _ click()[/Br/]list 1 . list(list 1 . list count)= " AAAA "[/Br/]End sub[/Br/]程序运行后，单击命令按钮，结果为
a 但位置无法确定
B .在列表框末尾(即“第3项”之后)添加字符串“AAAA”
c .将列表框中原来的最后一项改为“AAAA”
d .在列表框前面插入字符串“AAAA”(即“第1项”(20)假设以下事件过程:
private subform _ click()
dim x为整数 as integer
x = 1
n = 0
do while x < 28
x = x * 3
n = n+1
loop
print x，n点击表单，输出结果为
a . 814
b . 563
c . 281
d . 2435(21)有如下程序:[/br Counter
Check = True
Counter = 0
Do
Do While Counter < 20
Counter = Counter+1
如果Counter = 10，则
Check = false
exit Do
end If
loop
循环直到Check = false
打印计数器，check
end sub
程序运行后，单击表单， 结果是
a . 150
b . 20-1
c . 10 true
d . 10 false
(22)有以下程序:
Private Subform _ Click()[sum As Integer
sum = 0
For I = 2 To 10
如果i Mod 2 0，i Mod 3 = 0，则
sum = sum+I
并且输出结果是
a . 12
b . 30
c . 24
d . 18
(23)然后编写下面的事件过程:
private subcommand 1 _ click()
dimarray 1(10，10) as integer
米蒂as integer，j As Integer
For i = 1到3
For j = 2到4
array Text = array1(2，3)+Array1 (3，4)
end sub
程序运行后，单击命令按钮。文本框中显示的值为
a . 12
b . 13
c . 14
d .名称为Command1，然后编写以下事件过程:
private subcommand 1 _ click()
dima 1(4，4)，a2 (4，4)
for I = 1to 4
for j = 1to 4
a1。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 6
b . 10 5
c . 7 21
d . 6 12
(25)用以下程序:
Option Base 1
Private Dim arr，Sum
Sum = 0
arr = Array(1，3，3 3然后
sum = sum+arr(I)
end if
next I
print sum
end sub
程序运行后，单击窗体，结果为
a . 25
b . 26
c . 27
d . 28
(26)在窗体上绘制一个命令按钮， 然后编写以下事件过程:
private subcommand 1 _ click()
dim A(5)as string
for I = 1 to 5
A(I)= CHR(ASC(" A ")+(I-1))
Next
End Sub
程序运行后，单击命令按钮， 并且输出结果是
A . ABCDE
B . 1 2 3 4 5
C . ABCDE
d .错误信息[正确的是
a .如果没有指定函数过程的参数类型，则该参数没有数据类型
b .函数过程的返回值可以有多个
c .当数组作为函数过程的参数时 可以按值传递，也可以按引用传递
d .函数过程的参数类型与函数返回值的类型不同。 下面这段可以正确实现以上函数的代码是
a .函数f1 (b为整数)
if b mod 2 = 0然后
return 0
Else
return 1
End If
End函数
B .函数F1(b为整数)
If b Mod 2 = 0然后
F1 = 0
Else
F1 = 1
End If
If b Mod 2 = 0 Then
F1 = 1
Else
F1 = 0
End If
End Function
D . Function F1(b为整数)
If b Mod 2 = 0 Then
Return 0
Else
Return 1
End If
End Function
(29)以下关于参数KeyAscii的语句在 C. Keyascii参数可以省略
D. KeyASCII参数是key上标记的字符
(30)假设窗体上有一个名为Text1的文本框，编写如下程序:
Private subform _ load()
show
text = " "
text 1 . set focus
end Sub
Private Sub Form _ MouseUp(Button为整数，_
Shift为
End Sub
程序运行后，如果在文本框中输入字母“A”然后单击表单，那么表单上显示的内容是
A. Visual Basic
B .编程
C. Visual Basic编程
D. A .编程(31)假设下表所列的菜单结构:
━━━━━下面正确的事件过程是
a . Private subbigicon _ click()
big icon . checked = false
end sub
b . Private subbigicon _ click()
Me。appear . big icon . checked = True
End Sub
C . Private Sub big icon _ Click()
big icon。checked = True
End Sub
d . Private subbigion _ click()
appear . bigion . checked = True
End Sub
(32)假设通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，单击命令按钮后，可以打开标题为“新标题”的对话框的事件过程为
a . Private subcommand 1 _ click()
common dialog 1show printer
End Sub
B . Private Sub command 1 _ Click()
common dialog 1。dialog Title = " New Title "
common dialog 1。show font
End Sub
C . Private Sub command 1 _ Click()
common dialog 1。dialog Title = " New Title "
common dialog 1。show open
End Sub
D . Private Sub command 1 _ Click()
common dialog 1。DialogTitle = "New Title"
公共对话框1。show color
end sub
(33)如果一个项目包含多个窗体和标准模块，那么下列语句中错误的是
A .任何时候最多只有一个窗体是活动窗体
B .不能将标准模块设置为启动模块
C .只能使用Hide方法隐藏一个窗体，但不能从内存中清除它
D .如果项目包含Sub Main过程， 然后程序必须先执行进程
(34)假设工程文件中有一个标准模块，定义了以下记录类型
typebooks
name as string * 10
telnum as string * 20
end type
。 当执行事件过程Command1_Click时，需要在顺序文件Person.txt中写入一条记录，下面的事件过程可以完成这个操作
a.private子命令1 _ Click()
dim B as books
open " c:\ person . txt " for output as # 1
b.name = InputBox(" Enter Name ")
B . TelNum = InputBox(" Enter phone number ")
Write # 1，B . Name B.TelNum
Close #1
End Sub
B . Private Sub command 1 _ Click()
Dim B . As Books
打开" c:\ Person.txt "作为# 1
b.name = InputBox(" enter Name ")
B . TelNum = InputBox(" enter phone number ")
Print # 1，B . Name，B . TelNum
Close # 1
Person.txt "作为# 1
Name = InputBox(" Enter Name ")
TelNum = InputBox(" Enter phone number ")
Write # 1，B
Close # 1
End Sub
D . Private Sub command 1 _ Click()
Dim B As Book
Open " c:\ person . txt "作为# 1
Name = InputBox(" Enter Name ")[/br b . Telnum
Close # 1
End sub
(35)目录列表框的Path属性的作用是
A .显示当前驱动器或指定驱动器上某个目录的文件名
B .显示当前驱动器或指定驱动器上的目录结构
C .显示根目录下的文件名
D .显示指定路径下的文件。 二。填写空题(每题2分空，共30分)
请将每题空的正确答案写在答题卡上[1]~
(1)数据管理技术的发展过程经历人工管理、文件系统、数据库系统三个阶段，数据独立的阶段为[1]。
(2)算法的复杂度主要包括时间复杂度和[2]复杂度。
(3)模块测试时，要为每个被测模块设计两种额外类型的模块:驱动模块和接收模块(堆模块)。[3]的功能是将测试数据传输到被测模块，并显示被测模块产生的结果。
(4)二叉树的第六层(根节点为第一层)的节点数最多为选择题
[1-5]cacdc[6-10]daabb
[11-15]bccdc[16-20]cabba
[21-25]daadc[26-30]adbac
[1]数据库系统[2]空 [3]驱动模块
[4] 32 存储结构[6]30[/30。
(5)数据结构分为逻辑结构和存储结构，循环队列属于[5]结构。
(6)有以下函数过程:
fun(m为整数)as integer
dim k为整数，As integer
sum = 0
for k = MTO 1 step-2
sum = sum+k
next k
fun = sum
end function
如果程序中使用了语句S，
(7)绘制命令按钮和文本框程序运行后，在文本框中输入一串英文字母(不区分大小写)，然后单击命令按钮。该程序可以找出所有其他没有在文本框中输入的英文字母，并在Text1中以大写字母降序显示。例如，如果在Text1中输入abDfdb，则单击Command1按钮后，Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填写空。
Private Sub command 1 _ Click()
Dim str As String，s As String，c As String
str = UCase(text 1)
s = "
Z "
While c > = " A "
如果InStr(str，c) = 0，则
s =【7】
End If
c = Chr $(Asc(c)【8】)
下表中三个文本框的名称依次为Text1、Text2和Text3。程序运行时，分别在Text1和Text2中输入N和R的值。单击Command1按钮计算所选方法的数量，并将其显示在Text3文本框中(见下图)。请填写空。
Private Sub command 1 _ Click()
Dim r As Integer，n As Integer
n = text 1
r = text 2
text 3 = fun(n)/fun(【9】)/fun(r)
End Sub
fun(n As Integer)As
Dim t As long
[10]
for k = 1t to n
t * k在窗体上创建一个名为Text1的文本框数组，然后绘制一个名为Text2的文本框和一个名为Command1的命令按钮。运行时，在文本框数组中输入7个分数，点击“计算分数”命令按钮，最终分数会显示在Text2文本框中(去掉一个分数后的平均分，最低分数为最终分数)，如图。请填写空。
Private Sub command 1 _ Click()
Dim k As Integer
Dim sum As Single，max As Single，min As Single
sum = text 1(0)
max = text 1(0)
min =【11]
For k =【12】To 6
If max < text 1(k)Then
max = text 1(k)
End If
在运行时，在文本1文本框(即“查找对象”右侧的文本框)中输入姓氏或名字，然后单击“查找”按钮在列表框中进行搜索。"如果有多个匹配的列表项，将只显示第一个匹配的项；否则，文本2中将显示“未找到此人”。请填写空。
Private Sub command 1 _ Click()
Dim k As Integer，n As Integer，found As Boolean
found = False
n = Len(【14】)
k = 0
而k < List1。如果Text1 = Left$(List1，则ListCount And Not found
。List(k)，n)然后
Text2 =【15】
found = True
End If
k = k+1
Wend
如果没有找到则
text 2 = "没有找到这个人"
End If
End SUB 2005年9月全国计算机等级考试二级VB笔试试卷(含参考答案)

[4]

[5]