一个简单的问题

Question

我最近在编一个计算程序，要计算好久，
我想在用户想中止的时候就可以让中止，怎么办呢？
请高手指点

Answer 1

参考以下代码：(在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