请问各位高手，我怎么可以暂停我的循环，然后当我点击继续按钮时 ，程序能从我暂停的状态继续循环，谢谢

Option Explicit

Dim S As Integer
Dim Goo As Boolean
Private Sub Form_Load()
S = 0
Goo = True
End Sub
Private Sub Command1_Click()
Dim i As Integer

For i = S To 10000
DoEvents
If Not Goo Then S = i: Exit For
Text1 = Text1 & Cstr(i) & vbCrLf

Next i
End Sub
Private Sub Command2_Click()
If Goo Then Goo = False Else Goo = True: Command1_Click
End Sub

谢谢，

在请问一下，我按照你的那种方法做了，但是也可以实现，但是我暂停了之后，在重新开始，好像最后计算的结果不对，我如何把暂停之前的数保存在一个变量中，再重新开始的时候，我这个变量的值，紧接着暂停之前的变化，谢谢，

Option Explicit
Dim S As Integer
Dim Goo As Boolean
Dim j
Private Sub Form_Load()
S = 0
j = 0
Goo = True
End Sub
Private Sub Command1_Click()
Dim i As Integer

For i = S To 10000
DoEvents
j = j + i
If Not Goo Then S = i: Exit For

Text1.Text = j
Next i
End Sub
Private Sub Command2_Click()
If Goo Then Goo = False Else Goo = True: Command1_Click
End Sub

谢谢大家，我的问题已经解决，将If Not Goo Then S = i: Exit For 变成If Not Goo Then S = i＋1: Exit For即可，