D)Dim A(5;8)As Integer

　　（29）在调试VBA程序时，能自动被检查出来的错误是

　　A)语法错误

　　B)逻辑错误

　　C)运行错误

　　D)语法错误和逻辑错误

　　（30）在参数函数设计时，要想实现某个参数的“双向传递”，就应当说明该形参为“传址”调用形式。其设置的选项是

　　A）ByVal

　　B）ByRef

　　C）Qptional

　　D）ParamArray

（31）假定有以下循环结构：

　　Do until 条件

　　循环体

　　Loop

则下列说法正确的是

　　A)如果“条件”是一个为－1的常数，则一次循环体也不执行

　　B)如果“条件”是一个为－1的常数，则至少执行一次循环体

　　C)如果“条件”是一个不为－1的常数，则至少执行一次循环体

　　D)不论“条件”是否为“真”，至少要执行一次循环体

（32）执行语句MsgBox"AAA"，vbOKCancel＋vbQuestion，"BBB"之后，弹出的信息框外观样式是

A）

B）

C）

D）

（33）下面程序运行后输出的是

Private Sub Form_Click()

　　For i=1 To 4　　

　　　　x=1

　　　　For j=1 To 3

　　　　　　x=3

　　　　　　For k=1 To 2

　　　　　　　　x=x+6

　　　　　　Next k

　　　　Next j

　　Next i

　　Print x

End Sub

　　A）7

　　B）15

　　C）157

　　D）538

（34）在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：

Private Sub run34_Click()

　　sum＝0

　　For i＝10 To 1 Step－2

　　　　sum＝sum ＋ i

　　Next i

　　MsgBox sum

End Sub

运行以上事件，程序的输出结果是

　　A)10

　　B)30

　　C)55

　　D)其他结果

（35）下面程序：

Private Sub Form_Click()

　　Dim x，y，z As Integer

　　x＝5

　　y＝7

　　z＝0

　　Call P1(x，y，z)

　　Print Str(z)

End Sub

Sub P1(ByVal a As Integer, ByVal b As Integer, c As integer)

　　c＝a＋b

End Sub

运行后的输出结果为

　　A)0

　　B)12

　　C)Str(z)

　　D)显示错误信息

二、填空题（每空2分，共30分）

请将每个空的正确答案写在答题卡序号的横线上，答在试卷上不得分。

（1）一个栈的初始状态为空。首先将元素1,2,3,4,5依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为【1】。

（2）已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是【2】。

（3）一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于  【3】  的联系。

（4）软件测试可分为：白盒测试和黑盒测试。逻辑覆盖测试属于【4】测试。

（5）在最坏情况下，简单插入排序需要  【5】  次比较。

（6）如果表中一个字段不是自身所在表的主关键字，而是另一个表的主关键字或候选关键字，这个字段称为【6】。

（7）用于执行指定外部应用程序的宏操作是【7】。

（8）函数Now（）返回值的含义是【8】。

（9）在VBA中，分支结构根据【9】选择执行不同的程序语句。

（10）窗体的计时器触发事件激发的时间间隔通过【10】属性来设置。

（11）在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

Private Sub Command1_Click()

　　Text1＝"VB programming"

　　Text2＝Text1

　　Text1＝"ABCD"

End Sub

程序运行后，单击命令按钮，文本框Text2中显示的内容为【11】。

（12）在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

　Private Sub Command1_Click()

　　　　Dim s, i

　　　　s=0

　　　　For i＝1 To 10 step 2

　　　　　　s＝s＋i  

　　　　Next i

　　　　MsgBox s

End Sub

打开窗体运行后，单击命令按钮，则消息框的输出结果为【12】。

（13）有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算Text1、Text2和Text3文本框中的3科成绩的平均成绩，并将结果存放在Text4文本框中;单击退出按钮,则退出程序。请将下列程序填空补充完整。

Private Sub Command1_Click()

　　Me！Text1＝""

　　Me！Text2＝""

　　Me！Text3＝""

　　Me！Text4＝""

End Sub

Private Sub Command2_Click()

　　If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""Then

　　　　MsgBox "成绩输入不全"

　　Else

　　　　Me！Text4＝(【13】＋Val(Me！Text2)＋Val(Me！Text3))/3

　　【14】

End Sub

Private Sub Command3_Click()

　　Docmd.【15】

End Sub