Function Statement
рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рдлрд░реНрдХрдиреЗ рдкреНрд░рдХрд╛рд░рд▓рд╛рдИ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛
рдкрд░рд╛рдорд┐рддрд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛
рдкреНрд░рдХрд╛рд░реНрдп рдирд╛рдо[(VarNameрез [рдкреНрд░рдХрд╛рд░рдХреЛ рд░реВрдкрдорд╛][, VarNameреи [рдкреНрд░рдХрд╛рд░рдХреЛ рд░реВрдкрдорд╛][,...]]]) [рдкреНрд░рдХрд╛рд░рдХреЛ рд░реВрдкрдорд╛]
рдХрдерди рдЦрдгреНрдб
[рдирд┐рдХрд╛рд╕ рдкреНрд░рдХрд╛рд░реНрдп]
рдХрдерди рдЦрдгреНрдб
End Function
рдкрд░рд╛рдорд┐рддрд┐
рдирд╛рдо:рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдлрд░реНрдХрд╛рдЗрдПрдХрд╛ рдорд╛рди рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдирд▓рд╛рдИ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдХреЛ рдирд╛рдо ред
рдЪрд▓рдирд╛рдо:рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рдкрд╛рд╕рдЧрд░реНрдирд▓рд╛рдИ рдкрд░рд╛рдорд┐рддрд┐ ред
рдкреНрд░рдХрд╛рд░:рдкреНрд░рдХрд╛рд░-рдШреЛрд╖рдгрд╛ рднрдПрдХреЛ рдХреБрдЮреНрдЬреА рд╢рдмреНрдж ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 to 10 REM 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рд▓реЗ рдкрд╛рда рдПрд░реЗ рдЦреЛрдЬреНрдЫ:рдкрд╛рда рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐рдХрд╛ рд▓рд╛рдЧрд┐sList()
' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ рдорд╛рди рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рд╡рд╛ реж (рдирд┐рд▓)рдХреЛ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рд╣реЛред
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit For ' рдмрд╛рдЯ рдмрд╛рд╣рд┐рд░рд┐рдирдХрд╛ рд▓рд╛рдЧрд┐ sItemрднреЗрдЯрд╛рдЙрдиреБрд╣реЛрд╕реН
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function