假定有如下的 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

（ 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

（ 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 】 。

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

Private Sub Command1_Click()

Dim s ， i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

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

（ 9 ）某窗体中有一命令按钮，在窗体视图中单击此命令按钮打开一个查询，需要执行的操作是 【 9 】 。

（ 10 ）在使用 Dim 语句定义数组时，在缺省情况下数组下标的下限为 【 10 】 。

（ 6 ）结合型文本框可以从表、查询或 【 6 】 中获得所需的内容。

（ 7 ）在创建主 / 子窗体之前，必须设置 【 7 】 之间的关系。

（ 8 ）函数 Right （ “ 计算机等级考试 ” ， 4 ）的执行结果是 【 8 】 。

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