Lotus Symphony 1.2


GoSub...Return 陳述式 [執行時期]

呼叫由子常式或函數中的標籤所指示的子常式。標籤後的陳述式被執行,直至遇到下一個 Return 陳述式。隨後,程式會繼續執行 GoSub 陳述式之後的陳述式。

語法:

請參閱參數

參數:

Sub/Function

陳述式區塊

GoSub Label

陳述式區塊

GoSub Label

Exit Sub/Function

Label:

陳述式區塊

Return

End Sub/Function

GoSub 陳述式會呼叫由子常式或函數中的標籤所指示的本端子常式。標籤的名稱必須以分號 (:) 結尾。

警告:如果程式發現 Return 陳述式前面沒有 GoSubIBM® Lotus® Symphony™ Basic 將傳回一則錯誤訊息。 使用 Exit SubExit Function, 以確保程式在執行到下一個 Return 陳述式之前,結束子常式或函數。

下列範例示範 GoSubReturn 的用法。透過將程式段執行兩遍,計算由使用者輸入的兩個數的平方根。

範例:

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


其他文件 | 商標