利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，运行界面如下图所示。单击“开始”按钮，秒表开始计时，单击“结束”按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。
Dim result As String
Dim hour, minute, second As Integer
Dim i As Long
Private Sub cmddone_Click()
Timer1。 Enabled = False
i = 0
hour = 0
minute = 0
second = 0
End Sub
Private Sub cmdstart_Click()
Timer1。 Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i >= 3600 Then
hour = i \ 30...全部
Dim result As String
Dim hour, minute, second As Integer
Dim i As Long
Private Sub cmddone_Click()
Timer1。
Enabled = False
i = 0
hour = 0
minute = 0
second = 0
End Sub
Private Sub cmdstart_Click()
Timer1。
Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i >= 3600 Then
hour = i \ 3066
second = i - 3600 * hour
If second >= 60 Then
minute = second \ 60
second = second - 60 * minute
ElseIf second = 60 Then
minute = i \ 60
second = i - 60 * minute
ElseIf i < 60 Then
minute = 0
second = i
End If
End If
result = "运行了" & Str(hour) & "小时" & Str(minute) & "分" & Str(second) & "秒"
Label1。
Caption = result
End Sub
代码改好了
我的
愿意和你交流一下。收起
