“秒表”窗体中有两个按(“开始/停止”按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