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