主题：如何能做个按钮来中止循环计算

要这样做

Dim sum As Double = 0
vars("停止") = False
For i As Integer = 0 To 100000000
    If vars("停止") Then Exit For
    sum = sum + i
    Application.doevents
Next
msgbox(sum)

click事件

vars("停止") = True