求助,求助,求助!!!!!!!!!!!!!给分

Question

老兄请给出代码。
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