如何在函数中随时跳出并且返回原调用子程序中？

Question

public function ExaJump() as boolean
   dim blnwantjump as boolean    
on error goto errhandler
   
   if blnwantjump then goto errhandler
   exit function
Errhandler:
end function
你可以通过设置blnwantjump 的值来跳出

Answer 1

可能大家没有理解我的意思，我写一个例程看大家怎么想：
sub jump()
    dim result as long
    on error goto a:
    open "c:\1.txt" for output as #1
    close #1
    result=1:“跳出此过程，返回”’我想将引号里的汉字功能便为代码功能。
a:  result=2
end sub
我知道犯了一个错，那就是在一个过函数或过程中有两个出口，只是小弟水平不高，可以什么更好的办法修改这个缺陷？

Answer 2

这不算错误，两个出口，但是错误处理的出口，没问题function jump()
on error goto a
open "c:\1.txt" for output as #1
close #1
jump=1
exit function
a: 
jump=2
end subOK