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   


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

下面的我测试OK了。
Public b As Integer

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

Private Sub Timer1_Timer()
 Dim a As Integer
For a = b To 0 Step -1
    Text1.Text = a
    Print a, b
  'Exit For  这句你干嘛放这里？？？？？不需要的，去掉
Next
If a < 0 Then
  MsgBox "时间到了"
  Timer1.Enabled = False
End If
End Sub

Dim a As Integer, b As Integer

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

Private Sub Timer1_Timer()
    b = b - 1
    Print b
    If b = 0 Then
        MsgBox "时间到了"
        Timer1.Enabled = False
    End If
End Sub

楼主发过二楼的贴子后就没来看过回复吗？