题目
第5题
A.MM/dd/yyyy hh:mm:ss p
B.MM D, yyyy
C.hh:mm:ss a MM/dd/yyyy
D.MM/dd/yyyy hh:mm:ss a
第6题
A.MM/dd/yyyy hh:mm:ss p
B.MM D, yyyy
C.hh:mm:ss a MM/dd/yyyy
D.MM/dd/yyyy hh:mm:ss a
第7题
(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
第8题
“秒表”窗体中有两个按钮(“开始/停止”按钮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
第9题
“秒表”窗体中有两个按钮(“开始/停止”按钮bOK,“暂停/继续”按钮bPus);一个显示计时的标签iNure;窗体的“计时器间隔”设为100,计时糟度为0.1秒。 要求:打开窗体如图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,sum+1
D.enable,sum+1
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!