一个麻烦的问题，请各位高手指导（在线等待）

Question

public i as integerpublic sub aaa(bbb as integer)
    dim j as long
    dim k
    for j=1 to 1000
        if i=0 then
           exit sub
        else
           k=5
        end if next jok?  
end sub

Answer 1

SendMessage定义自己的消息函数

Answer 2

public i as integerPrivate Sub Command1_Click()
    dim j as long
    dim k
    for j=1 to 1000
        if i=0 then
           exit sub
        else
           k=5
        end if
 next j  
end sub
Private Sub Command2_Click()
    i=0end sub你的明白，快给分！

Answer 3

在后台的任务中设置一个公有变量
这个变量如果为TRUE，则终止运行
dim b as booleanif b then exit function