07年4月计算机等级考试二级VB考前密卷(1)

若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是

一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用

软件工程的理论和技术性研究的内容主要包括软件开发技术和

开发软件时对提高开发人员工作效率至关重要的是

在软件测试设计中，软件测试的主要目的是

数据处理的最小单位是

索引属于

下述关于数据库系统的叙述中正确的是

数据库系统的核心是

下列说法错误的是

下列四组控件属性中，属性值的类型不相同的一组是

下列方法中不能退出Visual Basic的是

任何控件都有的属性是

可以实现从键盘输入一个作为双精度变量a的值的语句是

下列符号常量的声明中，不合法的是

在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?

下列语句中，获得列表框List1中项目个数的语句是

要获得当前驱动器应使用驱动器列表框的属性是

如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过

当在滚动条内拖动滚动块时触发

设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数

设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是

设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是

下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则
Private Sub Command1_Click()
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
CommonDialog1.Action=4
CommonDialog1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub

要将名为MyForm的窗体显示出来，正确的使用方法是

下列程序段的执行结果为
a=5
For k=1 To 0
a=a + k
Next k
Print k; a

下列程序段的执行结果为
a=3
b=1
For I=1 To 3
f=a + b
a=b
b=f
Print f
Next I

下列程序段的执行结果为
I=9
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x

以下程序段运行时从键盘上输入字符"-"，则输出结果为
op$=InputBox("op=")
If op$="+" Then a=a + 2
If op$="-" Then a=a - 2
Print a

以下程序段的输出结果为
Dim l, a(10) , p(3)
k=5
For i=0 To 10
a(i) =i
Next i
For i=0 To 2
p(i) =a(i (i + 1) )
Next i
For i=0 To 2
k=k + p(i) 2
Next i
Print k

下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12: y=20
Call Value(x, y)
Print x; y
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub

在窗体上画一个命令按钮，然后编写下列程序
Private Sub Command3_Click()
Tcl 2
Tcl 3
Tcl 4
End Sub
Sub Tcl(a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序运行后，单击命令按钮，输出结果为

下面程序段，运行后的结果是Private Sub Command1_Click()
Dim b%(1 To 4) , i%, t#
For i=1 To 4
b(i) =i
Next i
t=Tof(b() )
Print "t="; t,
End Sub
Function Tof(a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A)
t=t * a(i)
Next i
Tof=t
End Function

单击按钮时，以下程序运行后的输出结果是
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x=1: y=2: z=3
Call God(x, x, z)
Print x; x; z
Call God(x, y, y)
Print x; y; y
End Sub
Private Sub God(x As Integer, y As Integer, z As Integer)
x=3 * z + 1
y=2 * z
z=x + y
End Sub

在树结构中，树根结点没有＿＿。

Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向＿＿ 的设计方法。

面向对象的模型中，最基本的概念是对象和＿＿ 。

软件设计模块化的目的是＿＿ 。

数据模型按不同应用层次分成3种类型，它们是概念数据模型、 ＿＿ 和物理数据模型。

在Visual Basic的立即窗口内输入以下语句
X＝65
?Chr$(X)
在窗口中显示的结果是 ＿＿ 。

下列程序是判断一个整数(>=3) 是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3) ")
k=Int(Sqr(n) )
i=2
swit=0
While i <=k And swit=0
If n Mod i=0 Then
＿＿
Else
＿＿
End If
Wend
If swit=0 Then
Print n; "是一个素数。"
Else
Print n; "不是一个素数。"
End If

下面程序是用来打印九九乘法表的，请补充完整。
Dim i As Integer, j As Integer, Str1$
Str1=""
For i=1 To 9
For j=1 To 9
If ＿＿ Then
Str1=Str1 + Str$(j) + "×" + Str$(i) + "=" + Str$(Val(i j) )
Else
Str1=Str1 & Chr(13)
＿＿
End If
Next j
Next i
Print Str1

在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
Dim k As Long
k=1
Do While num
k=k * (num Mod 10)
num=num ＼ 10
Loop
Trans=k
Print Trans
End Function
Private Sub Command1_Click()
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为 ＿＿ ,在输入对话框中输入"987"输出 ＿＿ ,在输入对话框中输入"879"，输出结果为＿＿ 。

下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i) =Int( ＿＿ )
If ＿＿ Then k=k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub