- UID
- 81
- 帖子
- 40
- 主題
- 3
- 精華
- 0
- 積分
- 6
- 楓幣
- 285
- 威望
- 5
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 4
- 閱讀權限
- 10
- 性別
- 保密
- 在線時間
- 23 小時
- 註冊時間
- 2011-7-5
- 最後登入
- 2021-7-23
|
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 & "秒"
能幫我看一下是哪裡錯誤嗎?@@
一直查不出原因
|
|