住房公积金的缴存基数是职工本人上一年度月平均工资，包括计时工资、计件工资、()和特殊情况下支付的工资。

（12）“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。

要求：打开窗体如图1所示；第一次单击“开始婷止”按钮，从0开始滚动显示计时（见图2)；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。

相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。

Option Compare Database

Dim flag,pause As Boolean

Private Sub bOK Click()

flag= 【12】

Me!bOK.Enabled=True

Me!bPus.Enabled=flag

End Sub

Private Sub bPus_Click()

pause=Not pause

Me!bOK.Enabled=Not Me!bOK.Enabled

End Sub

Private Sub Form. Open(Cancel As Integer)

flag=False

pause=False

Me!bOK.Enabled=True

Me!bPus.Enabled=False

End Sub

Private Sub Form. Timer()

Static count As Single

If flag=True Then

If pause=False Then

Me!1Num.Caption=Round(count,1)

End If

count= 【13】

Else

count=0

End If

End Sub

“秒表”窗体中有两个按钮（“开始/停止”按钮bOX，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。

要求：打开窗体如图1所示；第一次单击“开始/停止”按钮，从0开始滚动显示计时（见图2）；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。

相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。

Option Compare Database

Dim flag，pause As Boolean

Private Sub bOX_Click

flag=

Me! bOX.Enabled=True

Me!bPus．Enabled=flag

End Sub

Private Sub bPus_Click()

pause=Not pause

Me!b0K．Enabled=Not Me!bOK．Enabled

End Sub

Private Sub Form_Open(Cancel As Integer)

flag=False

pause=False

Me!bOK．Enabled=True

Me!bPus．Enabled=False

End Sub

Private Sub Form. Timer()

Static count AS Single

If flag=True Then

If pause=False Then

Me!lNum．Caption=Round(count，1)

End If

count=

Else

count=0

End If

End Sub

在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：

单击命令按钮后，标签显示的结果是()。

设计一个计时Access应用程序。该程序界面如图所示，由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为开始，命名为Command1；另一个标题为停止，命名为Command2)组成。程序功能为：打开窗体运行后，单击"开始"按钮，则开始计时，文本框中显示秒数，单击"停止"按钮，则计时停止；双击"停止"按钮，则退出。请填空补充完整。

Dim i

Private Sub Command1_Click()

i＝0

Me.TimerInterval＝1000

End Sub

Private Sub Command2_Click()

【 】

End Sub

Private Sub Command2_DblClick(Cancel As Integer)

DoCmd.【 】

End SubPrivate Sub Form_Load()

Me.TimerInterval＝0

Me! Text1＝0

End Sub

Private Sub Form_Timer()

i＝i＋1

Me! Text1＝【 】

End Sub

在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：打开窗体后单击命令按钮，窗体中显示的内容是（）。

A. 4

B. 5

C. 10

D. 40

在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：

Private Sub Command1_Click()

Labele.Caption=“标签”

End Sub

Private Sub Form_Load()

Form.Caption=“举例”

Command1.Caption=“移动”

End Sub

打开窗体后单击命令按钮，屏幕显示()。

A．

B．

C．

D．

在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：

Private Sub Command1,Click()

Labele.Caption＝"标签"

End Sub

Private Sub Form_Load()

Form.Caption＝"举例"

Command1.Caption＝"移动"

End Sub

打开窗体后单击命令按钮，屏幕显示()。

A．

B．

C．

D．

在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a AS String*10 Private Sub Command1_Click() a=“1234” b=Len(a) Me.Lb1．Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是()。

A．4

B．5

C．10

D．40

在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare Database Dim a As String*10 Pfivae Sub Commandl_Click() a＝“1234” b＝Len(A) Me.Lbl.Caption＝b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是()。

A．4

B．5

C．10

D．40