WORD格式
B.Name = InputBox(\输入姓名 \B.TelNum = InputBox(\输入电话号码 Write #1, B.Name, B.TelNum Close #1 End Sub
B． Private Sub Command1_Click()
Dim B As Books
Open \B.Name = InputBox(\输入姓名 \B.TelNum = InputBox(\输入电话号码 Print #1, B.Name, B.TelNum Close #1 End Sub
C． Private Sub Command1_Click()
Dim B As Books
Open \Name = InputBox(\输入姓名 \TelNum = InputBox(\输入电话号码 \Write #1, B Close #1 End Sub
D． Private Sub Command1_Click()
Dim B As Book
Open \Name = InputBox(\输入姓名 \TelNum = InputBox(\输入电话号码 \Print #1, B.Name, B.TelNum Close #1 End Sub
（35）目录列表框的 Path 属性的作用是
B
。
\\
A ．显示当前驱动器或指定驱动器上的某目录下的文件名 B ．显示当前驱动器或指定驱动器上的目录结构 C．显示根目录下的文件名 D ．显示指定路径下的文件
2 分，共 30 分）
请将每空的正确答案写在答题卡【 1】～【 15】序号的横线上，答在试卷上不得分。 （1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独 立性最高的阶段是
【1】
。
【 2】
复杂度。
（2）算法复杂度主要包括时间复杂度和
专业资料整理
WORD格式
（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块 （桩模块）。其中 【 3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。
（4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【 4】 个。 （5）数据结构分为逻辑结构和存储结构，循环队列属于 【 5】
结构。
（6）设有以下函数过程：
Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0
For k = m To 1 Step -2
sum = sum + k Next k fun = sum End Function
若在程序中用语句 s = fun(10)
调用此函数，则
s 的值为 【 6】（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序
运行后，在文本框中输入一串英文字母（不区分大小写） ，单击命令按钮，程序可找出未在
文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1
中 输 入 的 是 abDfdb ， 则 单 击 Command1 按 钮 后 Text1 中 显 示 的 字 符 串 是
ZYXWVUTSRQPONMLKJIHGEC 。请填空。
Private Sub Command1_Click( )
Dim str As String, s As String, c As String str = UCase(Text1) s = \c = \While c >= \
If InStr(str, c) = 0 Then
s = 【 7】
End If
c = Chr$(Asc(c) 【 8】
)
Wend
If s <> \Text1 = s End If End Sub
（8） 在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用
公式 计算。下图窗体中 3 个文本框的名称依次是 Text1、 Text2、Text3。程
专业资料整理
。
WORD格式
10
专业资料整理
WORD格式
序运行时在 Text1、Text2 中分别输入 n 和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本框中 (见下图 ) 。请填空。
Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1
r = Text2
) / fun(r)
Text3 = fun(n) / fun( 【 9】
End Sub
【 10】
For k = 1 To n t = t * k Next fun = t End Function
（9）以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名
为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分） ，如图所示。请填空。
Private Sub Command1_Click( ) Dim k As Integer
Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min =
【 11】
To 6
For k =
【 12】
If max < Text1(k) Then max = Text1(k)
专业资料整理
WORD格式
End If
专业资料整理
全国计算机等级考试二级VB语言笔试试题及答案
