大家来看下我的代码有扫描错吗
各位，帮我看下这个程序，怎么label的值不会跳啊
Private Sub Timer1_Timer()
timeshow (7200)
End Sub
Public Function timeshow(time As Integer)
Dim h, m, s As Integer
time = time - 1
h = Int(time / 3600)
m = Int((time - 3600 * h) / 60)
s = time - 3600 * h - 60 * m
Label1.Caption = h & ":" & m & ":" & s
End Function
