Lotus Symphony 1.2
|
呼叫由子常式或函數中的標籤所指示的子常式。標籤後的陳述式被執行,直至遇到下一個 Return 陳述式。隨後,程式會繼續執行 GoSub 陳述式之後的陳述式。
Sub/Function
陳述式區塊
GoSub Label
陳述式區塊
GoSub Label
Exit Sub/Function
Label:
陳述式區塊
Return
End Sub/Function
GoSub 陳述式會呼叫由子常式或函數中的標籤所指示的本端子常式。標籤的名稱必須以分號 (:) 結尾。
警告:如果程式發現 Return 陳述式前面沒有 GoSub,IBM® Lotus® Symphony™ Basic 將傳回一則錯誤訊息。 使用 Exit Sub 或 Exit Function, 以確保程式在執行到下一個 Return 陳述式之前,結束子常式或函數。
下列範例示範 GoSub 和 Return 的用法。透過將程式段執行兩遍,計算由使用者輸入的兩個數的平方根。
Sub ExampleGoSub
dim iInputa as Single
dim iInputb as Single
dim iInputc as Single
iInputa = Int(InputBox$ "Enter the first number:","NumberInput"))
iInputb = Int(InputBox$ "Enter the second number:","NumberInput"))
iInputc=iInputa
GoSub SquareRoot
Print "The square root of";iInputa;" is";iInputc
iInputc=iInputb
GoSub SquareRoot
Print "The square root of";iInputb;" is";iInputc
Exit Sub
SquareRoot:
iInputc=sqr(iInputc)
Return
End Sub