2011年3月全国计算机等级考试二级VB语言程序设计

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

某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）（    ）。

在软件开发中，需求分析阶段产生的主要文档是（    ）。

结构化程序所要求的基本结构不包括（    ）。

下面描述中错误的是（    ）。

负责数据库中查询操作的数据库语言是（    ）。

一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是（    ）。

有三个关系R、S和T如下（    ）。
 　　
则由关系R和S得到关系T的操作是

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（    ）。

在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（    ）。

假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（    ）。

为了使标签具有“透明”的显示效果，需要设置的属性是（    ）。

下面可以产生20～30（含20和30）的随机整数的表达式是（    ）。

设窗体上有一个名称为HSl的水平滚动条，如果执行了语句：
HSl.Value = (HSl.Max - HSl.Min) / 2 + HSl.Min则（    ）。

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（    ）。

为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（    ）。

如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（    ）。

设a=2，b=3，c=4，d=5，则下面语句的输出是（    ）。
Print 3 > 2 * b Or a = c And b <> c Or c > d

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（    ）。

默认情况下，下面声明的数组的元素个数是（    ）。
Dim a(5, -2 To 2)

设有如下程序段：
Dim a(10)
…
For Each x ln a
Print x;
Next x
在上面的程序段中，变量x必须是（    ）。

设有以下函数过程
Private Function Fun(a() As Integer,b As String)As Integer
…
End Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程调用语句是（    ）。

假定用下面的语句打开文件：
Open "Filel.Txt" For Input As #l
则不能正确读文件的语句是（    ）。

下面程序的执行结果是（    ）。
Private Sub Command1_Click()
a = 10
For k = 1 To 5 Step -1
a = a - k
Next k
Print a; k
End Sub

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click()
x! = Val(Text1.Text)
Select Case x
Case Is < -10, Is >= 20
Print "输入错误"
Case Is < 0
Print 20 - x
Case Is < 10
Print 20
Case Is <= 20
Print x + 10
End Select
EndSub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（    ）。

设有如下程序
Private Sub Command1_Click()
x = 10: y = 0
For i = 1 To 5
Do
x = x - 2
y = y + 2
Loop Until y > 5 Or x < -1
Next
End Sub
运行程序，其中Do循环执行的次数是（    ）。

阅读程序：
Private Sub Command1_Click()
Dim arr
Dim i As Integer
arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To 2
Print arr(7 - i);
Next
End Sub
程序运行后，窗体上显示的是（    ）。

在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click()
Dim a(10) As Integer
For k = 10 To 1 Step -1
a(k) = 20 - 2 * k
Next k
k = k + 7
Print a(k - a(k))
End Sub
运行程序，单击命令按钮，输出结果是（    ）。

窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a(10), x%
For k = 1 To 10
a(k) = Int(Rnd * 90 + 10)
x = x + a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（    ）。

窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：
Private Sub Command1_Click()
Timerl.Enabled=True
EndSub
Private Sub Form_Load()
Timerl.Interval=10
Timerl.Enabled=False
End Sub
Private Sub Timerl_Timer()
Commandl.Left=Commandl.Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（    ）。

设窗体上有一个名为Listl的列表框，并编写下面的事件过程：
Private Sub Listl_Click()
Dim ch As String
ch=Listl.List(Listl.ListIndex)
List1.RemoveItem List 1.ListIndex    -
List1.AddItem ch
EndSub
程序运行时，单击一个列表项，则产生的结果是（    ）。

窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 8
b = 12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer) As Integer
a = a Mod 5
b = b \ 5
Fun = a
End Function
程序运行时，单击命令按钮，则输出结果是（    ）。

为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
Private Sub Command1_Click()
Open "File1.txt" For Output As #20
Do While Not EOF(20)
Line Input #20, ch$
Print ch
Loop
Close #20
End Sub
程序调试时，发现有错误，下面的修改方案中正确的是（    ）。

以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表框如图所示；命令按钮的名称是Command1。
 　　
Private Sub Command1_Click()
If Not Check(Combo1.Text) Then
MsgBox ("输入错误")
Exit Sub
End If
For k = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then
MsgBox ("添加项目失败")
Exit Sub
End If
Next k
Combo1.AddItem Combo1.Text
MsgBox ("添加项目成功")
End Sub
Private Function Check(ch As String) As Boolean
n = Len(ch)
For k = 1 To n
c$ = UCase(Mid(ch, k, 1))
If c < "A" Or c > "Z" Then
Check = False
Exit Function
End If
Next k
Check = True
End Function
程序运行时。如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（    ）。

有序线性表能进行二分查找的前提是该线性表必须是＿＿存储的。

一颗二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为＿＿。

对软件设计的最小单位（模块或程序单元）进行的测试通常称为＿＿测试。

实体完整性约束要求关系数据库中元组的＿＿属性值不能为空。

在关系A(S,SN,D)和关系B(D,CN,NM)中，A的主关键字是S，B的主关键字是D,则称  ＿＿是关系A的外码。

在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程：
Private Sub Command1_Click()
Dim p As Integer
p = m(1) + m(2) + m(3)
Print p
End Sub
Private Function m(n As Integer) As Integer
Static s As Integer
For k = 1 To n
s = s + 1
Next
m = s
End Function
运行程序，单击命令按钮Commandl后的输出结果为  ＿＿  。

在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim m As Integer, x As Integer
Dim flag As Boolean
flag = False
n = Val(InputBox("请输入任意1个正整数"))
Do While Not flag
a = 2
flag =  ＿＿
Do While flag And a <= Int(Sqr(n))
If n / a = n \ a Then
flag = False
Else
＿＿
End If
Loop
If Not flag Then n = n + 1
Loop
Print  ＿＿
End Sub
上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。 请填空完善程序。

以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Randomize
i = 0
Do
num = Int(Rnd * 90) + 10
For j = 1 To i      ‘检查新产生的随机数是否与以前的相同，相同的无效
If num = a(j) Then
Exit For
End If
Next j
If j > i Then
i = i + 1
a(i) = ＿＿
End If
Loop While i < 10
For i = 1 To 9
For j =  ＿＿ To 10
If a(i) > a(j) Then temp = a(i): a(i) = a(j):  ＿＿
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub

窗体上已有名称分别为Dri、，e1、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt” 的文件显示在Filel中，如果双击Filel中的某个文件，则在Textl中显示该文件的内容。请填空。
Private Sub Form_Load()
File1.Pattern =  ＿＿
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim s As String * 1
If Right(File1.Path, 1) = "\" Then
f_name = File1.Path + File1.FileName
Else
f_name = File1.Path + "\" + File1.FileName
End If
Open f_name  ＿＿ As #1
Text1.Text = ""
Do While  ＿＿
s = Input(1, #1)
Text1.Text = Text1.Text + s
Loop
Close #1
End Sub