“秒表”窗体中有两个按钮(“开始/停止”按钮bOX,“暂停/继续”按钮bPus);一个显示计时的标签lNum;窗体
“秒表”窗体中有两个按钮(“开始/停止”按钮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