level 3
Dim t As Integer, x As Integer
Private Sub Form_Load()
x = 0
t = 10
'加载窗体时,初始剩余时间为10秒
End Sub
Private Sub Command1_Click()
x = x + 1
'每一次click使得击打数+1
Label3.Caption = "手速评估中..."
If t > 0 Then
Label2.Caption = Str(x)
Else
End If
'当倒计时结束时输出击打数值
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 1000
'设定时间变动间隔
If x > 0 Then
t = t - 1
Else
End If
'倒计时开始判定
Label1.Caption = Str(t)
'倒计时剩余时间输出
If t = 0 And x >= 60 Then
Label3.Caption = "手速较快"
End If
If t = 0 And x < 60 And x >= 30 Then
Label3.Caption = "手速正常"
End If
If t = 0 And x > 0 And x < 30 Then '
Label3.Caption = "手速较慢"
End If
'手速快慢进行条件判定评估
If t = 0 Then
Timer1.Enabled = False
Label2.Caption = Str(x)
'倒计时结束时停止,并输出打击次数
ElseIf x > 0 Then
Timer1.Enabled = True
'倒计时结束判定
End If
End Sub
Private Sub Command2_Click()
Call Form_Load
'唤起窗体加载事件
Label1.Caption = Str(t)
Label2.Caption = Str(x)
Label3.Caption = "手速待评估"
'重置状态
Timer1.Enabled = False
Timer1.Interval = 0
'重置计时器效果,此为无效代码
End Sub
2020年05月16日 11点05分
