在Timer1.Interval = 1000后面加上一句m=m+1,然后Dim s%, f%, m%把移到这个过程之外。改后如下:Dim s%, f%, m%Private Sub Timer1_Timer()Timer1.Interval = 1000m = m + 1If m >= 60 Thenf = f + 1m = 0If f >= 60 Thens = s + 1f = 0End IfEnd IfText1 = Format$(s, "00") + ":" + Format$(f, "00") + ":" + Format(m, "00")End Sub
|