vb 时间递减

Dim h, m, s%

Private Sub Form_Load()

h = 1

m = 50

s = 50

Timer1.Enabled = False

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If s = 0 Then

s = 59

h = IIf(m = 0, h - 1, h)

m = IIf(m = 0, 59, m - 1)

Else

s = s - 1

End If

Label1.Caption = Format(h, "00") &":" &Format(m, "00") &":" &Format(s, "00")

End Sub

就是在设置退火那一步时，大部分机器都自带一个程序，你可以每个循环降低或增加多少度，例如你设置的是每循环减少0.5度，起始退火温度是60度，那么第二个循环就是59.5度，第三个循环就是59度，依次递减，增加也可以

---