简易秒表的设计,根据电路补充程序 要求: 设计一个简易秒表,系统一上电,数码管 显示“ 00 ” 每间隔
第1题
第2题
要求:打开窗体如图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
第3题
要求:打开窗体如图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
第4题
要求:打开窗体如图1所示;第一次单击“开始/停止”按钮,从0开始滚动显示计时(见图2);10秒时单击“暂停/继续”按钮,显示暂停(见图3),但计时还在继续:若20秒后再次单击“暂停/继续”按钮,计时会从30秒开始继续滚动显示;第二次单击“开始/停止”按钮,计时停止,显示最终时间(见图4)。若再次单击“开始/停止”按钮可重新从0开始计时。
相关的事件程序如下:
Optioncompare Database
Dim flag,pause As Boolean
PrivateSub bOK_click
flag=__________
Me!bOK.Enabled=True
Me!bPus.Enabled=flag
End Sub
PrivateSub bPus_click
pause=Notpause
Me!bOK.Enabled=Not Me!bOK.Enabled
End Sub
PrivateSub Form. Open(Cancel As Integer)
flag=False
Pause=False
Me!b0K.Enabled=True
Me!bPus.Enabled=False
End Sub
PrivateSub Form. Timer
Staticcount As Single
If flag=TrueThen
Ifpause=False Then
Me!INum.Caption=Round(count,1)
End If
Count=__________
Else
count=0
End If
End Sub
横线处应填写的内容是( )。
A.not flag,count+1
B.not flag,count+0.1
C.enable,count+1
D.enable,sum+1
第5题
A.not flag,count+1
B.not flag,count+0.1
C.enable,sum+1
D.enable,sum+1
第6题
第7题
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!