VB如何终止程序？
例如：
call test1
call test2
function test1()
on error goto ErrorHandler:
ErrorHandler:
msgbox "msg "
exit function
end function
问题：当程序出现异常时，退出test1的时候，不让程序执行test2该如何做？
[解决办法]
增加返回值，判断test1是否成功
if test1=true then
call test2
endif
function test1() as boolean
on error goto ErrorHandler:
test1=true
exit function
ErrorHandler:
msgbox "msg "
test1=false
exit function
end function
[解决办法]
if test1=true then
call test2
endif
function test1() as boolean
on error goto ErrorHandler:
test1=false
...
test1=true
exit function
ErrorHandler:
msgbox "msg "
exit function
end function
[解决办法]
err.clear
call test1
if err.number =0 then call test2
function test1()
on error goto ErrorHandler:
ErrorHandler:
msgbox "msg "
exit function
end function
这样写就可以了
[解决办法]
test1不使用错误捕获，或者把错误捕获后继续err.raise
在调用过程里加错误捕获
