Dim pretime As Integer, mm As Integer, ss As Integer

Private Sub CmdStart_Click()
CmdStart.Enabled = False
Timer1.Enabled = True
pretime = Val(InputBox("请输入倒计的时间？"))
mm = pretime / 60
ss = pretime Mod 60
Label1.Caption = Str(mm) & "分" & Str(ss) & "秒"
End Sub

Private Sub Timer1_Timer()
mm = pretime / 60
ss = pretime Mod 60
Label1.Caption = Str(mm) & "分" & Str(ss) & "秒"
If mm = 0 And ss = 0 Then
Label1.Caption = "时间到"
Timer1.Enabled = False
CmdStart.Enabled = True
End If
pretime = pretime - 1
End Sub

为什么运行后，好像是多计了1分钟。

mm = pretime / 60
改成
mm = pretime \ 60
试试 .

Dim pretime As Integer, mm As Integer, ss As Integer

Private Sub CmdStart_Click()
cmdstart.Enabled = False
Timer1.Enabled = True
pretime = Val(InputBox("请输入倒计的时间？"))
mm = pretime \ 60
ss = pretime Mod 60
Label1.Caption = Str(mm) & "分" & Str(ss) & "秒"
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Timer1_Timer()
mm = pretime \ 60
ss = pretime Mod 60
Label1.Caption = Str(mm) & "分" & Str(ss) & "秒"
If mm = 0 And ss = 0 Then
Label1.Caption = "时间到"
Timer1.Enabled = False
cmdstart.Enabled = True
End If
pretime = pretime - 1
End Sub

好了，是这个问题呀！谢谢高手们，大家天天开心哦