VB如何从函数中跳出？

Question

VB如何从函数中跳出？

Answer 1

在被调用函数中使用DoEvents语句即可。

Global BreakCall As Boolean
Function MyCall1() ......
While BreakCall
'函数语句
.......
.......
DoEvents
Wend
End Function

通过在其它的代码部分改变 BreakCall 的值，可以控制函数运行或结束。
BreakCall = True '允许函数语句部分无限次数执行。
BreakCall = False '函数语句部分本次执行完后便退出函数。

Answer 2

VB中的函数有Sub和Function之分，其最明显的区别是有无返回值。实现二者的跳出功能语句就是Exit Sub和Exit Function 这二者大多用于遁环语句当中,比如：
Private Sub YourSubName()
i=1
Do While i<20
Print "i=";i
If i=10 Then Exit Sub
i=i+1
Loop
End Sub