共用方式為

GoSub...Return 陳述式

  • 發行項

在程序 中的副程式的分支與回傳。

語法

GoSub線條
... 線
線...
傳回

行自變數可以是任何行卷標或行號。

註解

在程式中的任何位置使用 GoSub 和 Return ，但 GoSub 和對應的 Return 語 句必須位於相同的程式中。 副程式可以包含多個 Return 陳述式，但是第一筆出現的 Return 陳述式卻會造成執行分支回流到緊接在最近執行的 GoSub 陳述式之後的陳述式。

注意事項

您無法使用 GoSub...Return進入或離開 Sub 程序。

提示

建立能夠呼叫的不同程序可能會提供更具結構化的 GoSub...Return替代選項。

範例

此範例使用 GoSub 來呼叫 Sub 程序內的副程式。 Return 陳述式會導致在 GoSub陳述式之後的陳述式繼續執行。 Exit Sub 陳述式用來避免控制項不小心流到副程式。

Sub GosubDemo() 
Dim Num 
' Solicit a number from the user. 
 Num = InputBox("Enter a positive number to be divided by 2.") 
' Only use routine if user enters a positive number. 
 If Num > 0 Then GoSub MyRoutine 
 Debug.Print Num 
 Exit Sub ' Use Exit to prevent an error. 
MyRoutine: 
 Num = Num/2 ' Perform the division. 
 Return ' Return control to statement. 
End Sub ' following the GoSub statement.

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。