请教：我想编一个数字钟，下面是我的代码，请帮忙纠正一下。谢谢！

Question

Label1.Caption = inthour & ":" & intmin & ":" & intsecend
这一句要移到条件判断之后，否则会出现60秒或60分的错误

Answer 1

用gettimetick
hour=gettimetick\1000\60\60
min=gettimetick\1000\60
sec=gettimetick\1000

Answer 2

我认为这样可以！！
 Option Explicit
Dim intmin As Integer
Dim inthour As Integer
Dim intsecend As Integer
Private Sub Form_Load()
    intmin=0
    inthour=0
    intsecond=0
    Label1.Caption = inthour & ":" & intmin & ":" & intsecend
End SubPrivate Sub Timer1_Timer()
    intsecend = intsecend + 1
    If intsecend > 59 Then
      intmin = intmin + 1
      intsecend = 0
    End If
    If intmin > 59 Then
      inthour = inthour + 1
      intmin = 0
    End If
    Label1.Caption = inthour & ":" & intmin & ":" & intsecend
End Sub