参考以下代码:(在form中加入2个command)Dim Flag As Boolean Private Sub Command1_Click() Flag = True End SubPrivate Sub Command2_Click() Dim i As Long Flag = False For i = 1 To 1000000 DoEvents If Flag Then Exit For Next MsgBox i End SubPrivate Sub Form_Load() Command2.Caption = "开始计算" Command1.Caption = "中止" End Sub
Private Sub Command1_Click()
Flag = True
End SubPrivate Sub Command2_Click()
Dim i As Long
Flag = False
For i = 1 To 1000000
DoEvents
If Flag Then Exit For
Next
MsgBox i
End SubPrivate Sub Form_Load()
Command2.Caption = "开始计算"
Command1.Caption = "中止"
End Sub