TIMER控件问题 新手级别

来源：百度知道 编辑：UC知道 时间：2024/06/07 02:21:49
就是做个倒计时间输入TXTE的倒计时值然后点击COMMAND1开始倒计时时间到了让程序自动点击COMMAND2一次然后计时器又自动开始倒计时（就是以此循环）的效果请问怎么做 这是我的作业我不会各位高手帮帮忙

Dim TimerA As Integer, TimerB As Integer

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

Private Sub Command2_Click()
'123
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If TimerA < TimerB Then
TimerA = TimerA + 1
Else
Command2_Click
TimerA = 0
End If
Me.Cls
Me.Print TimerB - TimerA & "/" & TimerB
End Sub