Function Statement
ආපසු ලබා දෙන අගයක් තීරණය කිරීමට ප්රකාශනයක් ලෙස භාවිතා කල හැකි උප ක්රම චර්යාවක් අර්ථ දක්වයි.
කාරක රීතිය
පරාමිතිය බලන්න
පරාමිතීන්:
කාරක රීතිය
ක්රියා නාමය[(VarName1 [වර්ගය ලෙස][, VarName2 [වර්ගය ලෙස][,...]]]) [වර්ගය ලෙස]
statement block
[ඉවත්වීමේ ක්රියාව]
statement block
ක්රියාව අවසන් කරන්න
පරාමිතිය
නම: ක්රියාවෙන් ආපසු ලබා දුන් අගය අඩංගු වීමට උප ක්රම චර්යාවේ නම.
විචල්යය නම: උප ක්රම චර්යාවට යැවීමට පරාමිතිය.
වර්ගය: වර්ගය ප්රකාශ කිරීමේ සෙවුම් පදය.
උදාහරණය:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
siStep = 0 සිට 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
REM sItem සඳහා ඉවත්වීමක් හමුවිය
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function