2006年4月全国计算机等级考试二级VB真题

两个或两个以上模块之间关联的紧密程度称为。

下列叙述中正确的是。

按照“后进先出”原则组织数据的数据结构是。

下列叙述中正确的是。

对如下二叉树
 　　
进行后序遍历的结果为。

在深度为7的满二叉树中，叶子结点的个数为。

“商品”与“顾客”两个实体集之间的联系一般是。

在E-R图中，用来表示实体的图形是。

数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。

以下关于Visual Basic特点的叙述中，错误的是。

以下叙述中，错误的是。

以下叙述中，错误的是。

设有如下语句：
Dim a，b As Integer
c="VisualBasic"
d=#7／20／2005#
以下关于这段代码的叙述中，错误的是。

以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。

设a=4，b=3，c=2，d=1，下列表达式的值是。
a>b+1 Or c< Mod b And>

以下可以作为Visual Basic变量名的是。

设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。

假定有如下的命令按钮(名称为Command1)事件过程：
Private Sub Command1_Click()
x=InputBox("输入："，"输入整数")
MsgBox"输入的数据是：”，，”输入数据："+x
End Sub
程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。

在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=Val(Text1.Text)
Select Case x
Case 1，3
y=x*x
Case Is>=10，Is<=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。

设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(30)As Integer
For i=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem>90 Then Exit For
Next
End Sub
对于该事件过程，以下叙述中错误的是。

设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(3，3)As Integer
For i=1 To 3
For j=1 To 3
a(i，j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i，4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是。

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是。

窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(?)处应填入的内容是。
 　　
Private Sub Option1_Click(Index As Integer)
If Text1.Text<>""Then
Select Case ?
Case 0
Text2.Text=Val(Text1.Text)
Case 1
Text2.Text=Val(Text1.Text)*10
Case 2
Text2.Text=Val(Text1.Text)*100
End Select
End If
End Sub

在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(10)As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)+x)
End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为。

以下关于过程的叙述中，错误的是。

在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。
 　　
编写如下程序：
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x，y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是。
Private Sub Text1_LostFocus()
Call CheckInput(Text1，500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2，1000)
End Sub
Sub CheckInput(t As ?，x As Integer)
If Val(t.Text)>x Then
MsgBox"请重新输入!"
End If
End Sub

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。

为了使列表框中的项目呈多列显示，需要设置的属性为。

在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入：")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。

在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述中错误的是。

窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
CD1.FileName=""
CD1.Filter="All Files|*.*|(*.Do
C．|*.Doc|(*.Txt)|*.txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，错误的叙述是。

以下叙述中错误的是。

以下关于文件的叙述中，错误的是。

对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为＿＿。

在面向对象方法中，＿＿描述的是具有相似属性与操作的一组对象。

在关系模型中，把数据看成是二维表，每一个二维表称为一个＿＿。

程序测试分为静态分析和动态测试。其中＿＿是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。

数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为＿＿。

下列语句的输出结果是＿＿。
Print Format(Int(12345.6789*100+0.5)／100，"0000，0.00")

在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(1 To 100）As Integer
For i=1 To 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Min=arr（1）
For i=1 To 100
If＿＿Then
Max=arr(i)
End If
If＿＿Then
Min=arr(i)
End If
Next i
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。

在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：
 　　
Function Fun(x As Integer,ByVal y As Integer)As Integer
x=x+y
If x<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=-10：b=5
Text1.Text=Fun(a，b)
Text2.Text=Fun(a，b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是＿＿和＿＿。

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编
写如下代码：
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll)，4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是＿＿。

在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. ＿＿="打开文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C：＼"
CommonDialog1.ShowOpen
End Sub
该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下
的所有文件，请填空。

在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Open"d：＼temp＼dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
lf＿＿=13 Then
If UCase(Text1.Text)= ＿＿Then
Close 1
End
Else
Write#1，＿＿
Text1.Text=""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。