Question

VB 设计倒计时，text1表示分钟 text2表示秒数 但是代码出现问题，求帮我看看

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If b <> 0 Then
b = b - 1
ElseIf b = 0 And a <> 0 Then
a = a - 1 And b = 59
ElseIf a = 0 And b = 0 Then
Beep
MsgBox "计时时间到"
End If
Text1.Text = Format(a, "00")
Text1.Text = Format(b, "00")
End Sub

Answer 1

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If b > 0 Then
   b = b - 1
ElseIf a > 0 Then
   a = a - 1
   b = 59
Else
   Beep
   Timer1.Enabled = False
   MsgBox "计时时间到"
End If
Text1.Text = Format(a, "00")
Text2.Text = Format(b, "00")
End Sub

Answer 2

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load() ‘初始化
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If b <> 0 Then
b = b - 1
Else ‘以下部分作了修改
If a <> 0 Then
a = a - 1: b = 59
Else
Beep
MsgBox "计时时间到"
Timer1.Enabled = False
End If
End If
Text1.Text = Format(a, "00")
Text2.Text = Format(b, "00") ’此句也作了修改
End Sub

追问

为什么我这样写就不对呢。。。分钟和秒钟在运行的时候 分钟跟着秒钟变了。。。

追答

你没仔细看。最后一处修改的地方。

追问

奥！谢谢~我前面还问了一个是否构成三角形并求面积的问题~嘿嘿~你帮我去看看代码吧~顺便还能给你财富值。。这题没给财富值挺过意不去的。。毕竟回答的很好呐~http://zhidao.baidu.com/question/1382139707788338740.html?quesup2&oldq=1