excel中也常使用Return语句,下面是其使用示例。
Sub GosubNext()
Dim Num
' 输入一个数字。
Num = InputBox("请输入一个正整形的数?")
' 如果输入是一个正整型,则使用子程序。
If Num > 0 Then GoSub MyNext
Debug.Print Num
Exit Sub ' 使用 Exit 命令来避免错误发生。
MyNext:
Num = Num/3 ' 将数除以3。
Return
' 将控制返回 GoSub 之后的语句。
End Sub
代码解释:
本示例使用 GoSub 来调用子过程里的一段子程序。Return 语句则将执行返回到 GoSub 的下一个语句。Exit Sub 语句则是用来避免控制意外进入该子程序的情形发生。