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

Public x As Integer

Private Sub Command1_Click( )

x = 10

Call s1

Call s2

MsgBox x

End Sub

Private Sub s1( )

x = x + 20

End Sub

Private Sub s2( )

Dim x As Integer

x = x + 20

End Sub

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

（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：

Private Sub Command1_Click （）

Dim b,k

For k=1 to 6

b=23+k

Next k

MsgBox b+k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。

（ 14 ）下面 VBA 程序段运行时，内层循环的循环总次数是 【 14 】 。

For m = 0 To 7 step 3

For n = m -1 To m+1

Next n

Next m

（ 13 ）实现数据库操作的 DAO 技术，其模型采用的是层次结构，其中处于最顶层的对象是 【 13 】 。

（ 12 ）在窗体上有一个文本框控件，名称为 Text1 。同时，窗体加载时设置其计时器间隔为 1 秒、计时器

触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。

Private Sub Form_Load( )

Me.TimerInterval =1000

End Sub

Private Sub 【 12 】

Me!text1 = Now( )

End Sub

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

Private Sub Command1_Click( )

Static b As Integer

b=b+1

End Sub

窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。

（ 10 ）如果要将某表中的若干记录删除，应该创建 【 10 】 查询。

（ 8 ） 在数据表视图下向表中输入数据 ， 在未输入数值之前 ， 系统自动提供的数值字段的属性是 【 8 】 。

（ 9 ）某窗体中有一命令按钮，名称为 C1 。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色变为棕色（棕色代码为 128 ），实现该操作的 VBA 语句是 【 9 】 。

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

（ 6 ） Access 数据库中，如果在窗体上输入的数据总是取自表或查询中的字段数据，或者取自某固定内容的数据，可以使用 【 6 】 控件来完成。