Private Sub Command1_Click()
a = InputBox("输入倒计时间单位为秒", "时间输入框", "60")
Timer1.Interval = 1000
End Sub
----------------------
Private Sub Timer1_Timer()
For a = 1 To 60
a = (a - 1) / 60
HScroll1.Value = n
If a = 0 Then
MsgBox "时间到了"
End If
Exit For
Next
End Sub



我不论输入多少，都立马就弹出对话框时间到了，汗，

Dim a As Integer, b As Integer

Private Sub Command1_Click()
b = InputBox("输入倒计时间单位为秒", "时间输入框", "60")
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
For a = b To 0
a = a - 1
Print a, b
Exit For
Next
If a < 0 Then
MsgBox "时间到了"
Timer1.Enabled = False
End If
End Sub   


这样改了为什么还是不对呢，