Function Statement
Definira potprogram koji se može koristiti kao izraz za određivanje povrata tipa.
Sintaksa:
vidi Parametre
Parametri:
Sintaksa:
Sub Name[(VarName1 [Kao Tip][, VarName2 [Kao Tip][,...]])]
blok izjava
[Exit Function]
blok izjava
Kraj funkcije
Parametar:
Name: Ime potprograma da sadrži vrijednost koju vraća funkcija.
VarName: Parametri koji ce biti vraceni u podprogram.
Type: Ključna riječ za deklarisanje tipa.
Primjer:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 To 10 ' Fill array with test data
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 pretražuje a TextArray:sList() za TextEntry:
REM Vrati vrijednost je indeks od unosa ili 0 (Null)
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Napusti za REM sPOdatak nadjen
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function