匿名使用者2010.08.17 回答

‘一個標籤，兩個按鈕，一個計時器。

’標籤顯示時間，按鈕一控制秒錶，按鈕二清零。

Dim m As Integer， s As Integer， ms As Integer， flag As Boolean

Private Sub Command1_Click（）

If flag = False Then

Timer1。Interval = 10

flag = True

Else

Timer1。Interval = 0

flag = False

End If

End Sub

Private Sub Command2_Click（）

flag = False

Timer1。Interval = 0

m = 0

s = 0

ms = 0

Label1。Caption = “00：00：00”

End Sub

Private Sub Timer1_Timer（）

ms = ms + 1

If ms = 100 Then

s = s + 1

ms = 0

End If

If s = 60 Then

m = m + 1

s = 0

End If

Label1。Caption = Format（m， “00：”） & Format（s， “00：”） & Format（ms， “00”）

End Sub