Dim m As Long Private Sub Command1_Click() Timer1.Enabled = ture m = Val(Text1.Text) * 60 Label1.Caption = "现在开始计时" Command1.Visible = False End Sub

Private Sub Timer1_Timer() m = m - 1 If m < 0 Then Timer1.Enabled = False MsgBox "时间到", 0, "标题" Label1.Caption = "请输入倒计时时间" Text1.Text = "" Command1.Visible = ture Exit Sub End If n1 = Format(m Mod 60, "00") n2=format((m 60)mod 60,"00:") n3=format(m 3600,"00:") Text1.Text = n3 & n2 & n1 Command1.Visible = False End Sub

Option Explicit

Dim m As Long

Private Sub Command1_Click() Timer1.Enabled = True m = Val(Text1.Text) * 60 Label1.Caption = "现在开始计时" Command1.Visible = False End Sub

Private Sub Timer1_Timer() Dim n1 As String, n2 As String, n3 As String m = m - 1 If m < 0 Then Timer1.Enabled = False MsgBox "时间到", 0, "标题" Label1.Caption = "请输入倒计时时间" Text1.Text = "" Command1.Visible = True Exit Sub End If n1 = Format(m Mod 60, "00") n2 = Format((m \ 60) Mod 60, "00:") n3 = Format(m \ 3600, "00:") Text1.Text = n3 & n2 & n1 Command1.Visible = False End Sub

[此贴子已经被作者于2005-4-13 21:41:02编辑过]

多谢二楼  不过我想问一下  为什么要在
n2=format((m 60)mod 60,"00:")
n3=format(m 3600,"00:")
的m与60之间加入/呢  不好意思   我是初学者
请多多帮助

那我问你 (m 60)是什么意思？m 3600 又是什么意思？