Function Statement
定義可以用作表示式的子常式,以確定傳回類型。
語法
請參閱參數
參數:
語法
Function Name[ (VarName1[As Type][, VarName2[As Type][,...]]])[As Type]
陳述式區塊
[Exit Function]
陳述式區塊
End Function
參數:
Name:包含函式傳回值的子常式的名稱。
VarName:傳送到子常式的參數。
Type: 類型宣告關鍵字。
示例:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 to 10 REM 用測試資料來填入陣列
sListArray(siStep) = chr$(siStep + 65)
MsgBox sListArray(siStep)
Next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
End Sub
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
REM Linsearch 搜尋 TextEntry 的 TextArray:sList():
REM 傳回值為條目的索引或 0 (空)
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit for REM 找到 sItem
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function