2005年9月全国计算机等级考试二级VB考试题

下列数据结构中，能用二分法进行查找的是

下列关于栈的描述正确的是

下列叙述中正确的是

下列描述中正确的是

在软件设计中，不属于过程设计工具的是

下列叙述中正确的是

数据库设计的根本目标是要解决

设有如下关系表:
 　　
则下列操作中正确的是

数据库系统的核心是

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

为了清除窗体上的一个控件，下列正确的操作是

以下叙述中错误的是

设a=2, b=3, c=4, d=5, 下列表达式的值是
Not a<=c Or 4*c=b^2 And b<>a+c

设a = 5，b = 10，则执行
c = Int((b - a) * Rnd + a) + 1
后，c值的范围为

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是

在窗体上画两个文本框，其名称分别为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中显示的内容是

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：
Private Sub Form_Load()
List1.AddItem "Item 1"
List1.AddItem "Item 2"
List1.AddItem "Item 3"
End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount) = "AAAA"
End Sub
程序运行后，单击命令按钮，其结果为

假定有如下事件过程：
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
程序运行后，单击窗体，输出结果是

有如下程序：
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
程序运行后，单击窗体，输出结果为

有如下程序：
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
程序运行后，单击窗体，输出结果为

在窗体上画一个名称为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
程序运行后，单击命令按钮，在文本框中显示的值是

在窗体上画一个命令按钮，其名称为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
程序运行后，单击命令按钮，在窗体上输出的是

有如下程序：
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
End Sub
程序运行后，单击窗体，输出结果为

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5) As String
For i = 1 To 5
a(i) = Chr(Asc("A") + (i - 1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是

以下关于函数过程的叙述中，正确的是

函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是

以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是

假定有下表所列的菜单结构：
 　　
要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“Ö”。以下正确的事件过程是

假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

目录列表框的Path属性的作用是

数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 ＿＿ 。

算法复杂度主要包括时间复杂度和 ＿＿ 复杂度。

在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 ＿＿ 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。

一棵二叉树第六层（根结点为第一层）的结点数最多为 ＿＿ 个。

数据结构分为逻辑结构和存储结构，循环队列属于 ＿＿ 结构。

设有以下函数过程：
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的值为 ＿＿ 。

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的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 = "Z"
While c >= "A"
If InStr(str, c) = 0 Then
s = ＿＿
End If
c = Chr$(Asc(c) ＿＿ )
Wend
If s <> "" Then
Text1 = s
End If
End Sub

在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式　　  计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。
 　　
Private Sub Command1_Click( )
Dim r As Integer, n As Integer
n = Text1
r = Text2
Text3 = fun(n) / fun(＿＿ ) / fun(r)
End Sub
Function fun(n As Integer) as long
Dim t As Long
＿＿
For k = 1 To n
t = t * k
Next
fun = t
End Function

以下是一个比赛评分程序。在窗体上建立一个名为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 = ＿＿
For k = ＿＿ To 6
If max < Text1(k) Then
max = Text1(k)
End If
If min > Text1(k) Then
min = Text1(k)
End If
sum = sum + Text1(k)
Next k
Text2 = (＿＿ ) / 5

如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
 　　
Private Sub Command1_Click()
Dim k As Integer, n As Integer, found As Boolean
found = False
n = Len(＿＿ )
k = 0
While k < List1.ListCount And Not found
If Text1 = Left$(List1.List(k), n) Then
Text2 = ＿＿
found = True
End If
k = k + 1
Wend
If Not found Then
Text2 = "查无此人"
End If
End Sub