如何對一個程序進行暫停和重新啟動的控制呢？謝了。

Question

to: cooly 
是這樣的:
我有一程序，當我點開始時，它執行一個循環，並且在在一個文本匡裡取一
值來獎定循環次數，例如是100，但是當我掃執行到任意一個次數如20時，
我需要它暫停，然後想開始時，點continue.時，它不是重新開始循環，
而是接著剛剛的循環進行。
謝了。

Answer 1

试试下面的代码，我没有做什么判断。你看看是不是你要求的Public curNum, brkNum As Long
Public isBreak As Boolean
Private Sub Command1_Click()
For i = curNum To Text1.Text
    brkNum = i
    If isBreak Then Exit For
    Debug.Print i
    DoEvents
Next
End SubPrivate Sub Command2_Click()
If isBreak Then
   curNum = brkNum
   isBreak = False
   Call Command1_Click
Else
   isBreak = True
End If
End SubPrivate Sub Form_Load()
isBreak = False
End Sub