各位快来帮忙,要不然我就死了

Question

在跳到timer2时timer1的代码中加入exit sub

Answer 1

在timer1 的事件中加入一句监测跳出代码，进入到timer2 事件是执行完毕，做一个标记 供 timer1 的监测代码监测，当返回到timer1时 不就跳出来了吗

Answer 2

如果这种要求是必要的，在设计上就是错误的。按照wbdx(碳离子)的办法可以实现，但仍有可能在判断以后发生中断。最好是在设计上避开这一点。

Answer 3

老兄请给出代码。
Option ExplicitPrivate Sub Form_Load()
    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer1.Interval = 100
    Timer2.Interval = 100
End SubPrivate Sub Command1_Click()
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Dim i As Integer
    For i = 0 To 10 ^ 4
        Cls
        Print "Timer1"
        If i > 100 Then
            Timer1.Enabled = False
            Timer2.Enabled = True
            Print i
            Exit Sub
        End If
    Next
End Sub
Private Sub Timer2_Timer()
    Dim i As Integer
    For i = 0 To 10 ^ 4
        Cls
        Print "Timer2"
        If i > 100 Then
            Timer2.Enabled = False
            Print i
            Exit Sub
        End If
    Next
End Sub