一个有趣的问题！

Question

加一个timer控件，循环代码加在它的事件里，然后private sub cmdButton1_click()
  timer1.enabled=true
end subprivate sub cmdButton2_click()
  timer1.enabled=false
end sub

Answer 1

用一个Boolean 标志
当Boolean =TRUE时，循环开始
当Boolean =FALSE时，跳出循环DIM BL AS Boolean
private sub cmdButton1_click()
  BL=TRUE
end subprivate sub cmdButton2_click()
  BL=FALSE
end subIF BL=TRUE THEN  循环开始  IF BL=FASLE THEN
    结束
  END IF
END IF

Answer 2

IF BL=TRUE THEN  循环开始  IF BL=FASLE THEN
    结束
  END IF
END IF写到cmdButton1_click里

Answer 3

Dim T As Boolean
Private Sub Command1_Click()
    T = True
    While T
        Debug.Print Time
        ....
        ....
        DoEvents
    Wend
    
End SubPrivate Sub Command2_Click()
    T = False
End Sub

Answer 4

我的这个题目的具体内容是：form中有两个按钮控件，其中一个调用VC写的dll,该dll执行一个无限循环，循环结束时返回一个数组，而form中另一个按钮控制该循环的结束，该如何处理？

Answer 5

设置一个变量,当变量为true时退出循环