用vb的timer做一个计时器程序

Option Explicit
--------------------------------------------------
Static iSec As Integer
Static iMin As Integer
Static iHour As Integer

--------------------------------------------------
Private Sub Command1_Click()

Timer1.Enabled = True

End Sub
--------------------------------------------------
Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Command3_Click()

Timer1.Enabled = False
iSec = 0
iMin = 0
iHour = 0

End Sub

--------------------------------------------------
Private Sub Timer1_Timer()

iSec = iSec + 1

If iSec >= 60 Then
iMin = iMin + 1
iSec = 0

If iMin >= 60 Then
iHour = iHour + 1
iMin = 0
End If

End If

Label1.Caption = Format(iHour， "00") & "：" & _
Format(iMin， "00") & "：" & _
Format(iSec， "00")

End Sub