FUNCTION...END FUNCTION

 
語法

        FUNCTION FunctionName({Arglist}) AS ReturnType

        {statements}

        END FUNCTION

 

操作

        宣告有額外參數串列的函數。

  • FunctionName 函數名稱,可以包含字母、數字和底線,但開頭必須為一個字母。
  • Arglist函數所需的參數列。每個參數前都會加上一個傳值(byval)或傳址(byref)修飾辭以顯示參數傳遞方法。即使沒有參數括號也不能省略。
  • ReturnType 回傳的資料型態,可以是位元組、整數、字元組、長整數或浮點數。

 

說明

        FUNCTION指令宣告由函數呼叫執行的使用者定義函數。與Sub程式不同的是有回傳值給呼叫者。

 

範例

Function Sum(X As Short, Y As Short) As Integer
   
Return X+Y
End Function

Sub Main()
   
Dim X, Y As Short
   
Dim Z As Integer
   
    X =
1
    Y =
2
    Z = Sum(X, Y)
   
Debug "X=", X, CR, "Y=", Y, CR, "Z=X+Y=", Z, CR
End Sub