（31）现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是
A．docmd.openform″tEmployee″
B．docmd.openview″tEmployee″
C．docmd.opentable″tEmployee″
D．docmd.openreport″tEmployee″
（32）Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是
A．Default
B．Cancel
C．Enabled
D．Visible
（33）以下程序段运行结束后，变量x的值为
x=2
y=4
Do
x=x*y
y=y+1
Loop While y<4
A．2
B．4
C．8
D．20
（34）在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是
A．7
B．15
C．157
D．538
（35）假定有如下的Sub过程：
Sub sfun（x As Single，y As Single）
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
Dim a as single
Dim b as single
a=5
b=4
sfun a，b
MsgBox a & chr（10）+chr（13）& b
End Sub
打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为
A．1和1
B．1.25和1
C．1.25和4
D．5和4
二、填空题（每空2分，共30分）
请将每一个空的正确答案写在答题卡【1】~【15】序号的横线上，答在试卷上不得分。
（1）对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为 【1】 。
（2）在面向对象方法中， 【2】 描述的是具有相似属性与操作的一组对象。
（3）在关系模型中，把数据看成是二维表，每一个二维表称为一个 【3】 。
（4）程序测试分为静态分析和动态测试。其中 【4】 是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
（5）数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为 【5】 。
（6）结合型文本框可以从表、查询或 【6】 中获得所需的内容。
（7）在创建主/子窗体之前，必须设置 【7】 之间的关系。
（8）函数Right（“计算机等级考试”，4）的执行结果是 【8】 。
（9）某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开一个查询，需要执行的操作是 【9】 。
（10）在使用Dim语句定义数组时，在缺省情况下数组下标的下限为 【10】 。
（11）在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【11】 。
（12）在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub s（By Val p As lnteger）
p=p*2
End Sub
Private Sub Command1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【12】 。
（13）设有如下代码：
x=1
do
x=x+2
loop until 【13】
运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。
（14）窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。
Private Sub cmdTest_Click()
Answer= 【14】 （“隐藏按钮”，vbOKCancel）
If Answer=vbOK Then
cmdDisplay.Visible= 【15】
Else
Docmd.Close
End If
End Sub
责任编辑：小草
