倒數計時器
i時 j分 k秒---------以下是程式-------------
i = Val(Text1.Text)
j = Val(Text2.Text)
k = Val(Text3.Text)
If i = 0 And j = 0 And k = 0 Then
MsgBox "時間到", , "提醒"
Timer1.Enabled = False
ElseIf i <> 0 Then
i = i - 1
j = 59
k = 59
End If
If j <> 0 Then
j = j - 1
k = 59
End If
If k <> 0 Then
k = k - 1
End If
Label5.Caption = i & "時" & j & "分" & k & "秒"
能幫我看一下是哪裡錯誤嗎?@@
一直查不出原因
頁:
[1]