设计一个计时Access应用程序。该程序界面如下图所示,由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为开始,命名为Command1;另一个标题为停止,命名为Command2)组成。程序功能为:打开窗体运行后,单击“开始”按钮,开始计时,文本框中显示秒数,单击“停止”按钮,计时停止;双击“停止”按钮,退出程序。请将空格补充完整。
Dim i
Private Sub Command1_Click()
i=0
Me.TimerInterval=1000
End Sub
Private Sub Command2_Click()
(11)
End Sub
Private Sub Command2_DblClick(Cancel As Integer)
DoCmd. (12)
End Sub
Private Sub Form_Load()
Me.TimerInterval=0
Me!Text1=0
End Sub
Private Sub Form_Timer()
i=i+1
Me!Text1= (13)
End Sub
(13)是()
参考答案:i
解析:
“计时器间隔”属性值也可以安排在代码中进行动态设置,而且可以通过设置“计时器间隔”属性值为零(Me.TomerInterval=0)来终止Timer时间继续发生;Close函数定义为关闭当前对象;第13空为计时,在文本框显示当前秒数,故为i。