timer

Question

一个简单计时器，按“开始”按钮，开始计时，按钮变为“继续”。按“暂停”按钮，停止计时，显示纪录的时间数，任何时间按“重置”按钮，时间读数都将重置为0
程序如下有什么问题啊
Private Sub Command1_Click()
If Command1.Caption = "&s暂停" Then
Command1.Caption = "&c继续"
Timer1.Enabled = False
Else
Command1.Caption = "&s暂停"
If Label1.Caption = "00:00:00" Then Form1.Tag = Timer
Timer1.Enabled = True
End IfEnd SubPrivate Sub Command2_Click()
Form1.Tag = Timer
Label1.Caption = "00：00：00"End SubPrivate Sub Timer1_Timer()
m = Timer - Form1.Tag
n0 = (m * 10) Mod 10
m = Int(m)
n1 = Format(m Mod 60, "00.")
n2 = Format((m \ 60) Mod 60, "00:")
n3 = Format(m \ 3600, "00:")
Label1.Caption = n3 & n & n1 & n0

Answer 1

m = Timer - Form1.Tag改成m = Timer - Val(Form1.Tag)

Answer 2

貌似最后还少了个 End Sub

Answer 3

把m定义成全局变量,在公共部分写Dim m As Single
再定义一个,Dim mm As Single然后把
If Label1.Caption = "00:00:00" Then Form1.Tag = Timer
改成
If Label1.Caption = "00:00:00" Then
  Form1.Tag = Timer
Else
  Form1.Tag = Timer - m
End If最后按Ctrl+H，把所有Form1.Tag都改成mm