Function Statement

Qolote dana tirate handaarate gede horonsi'rantanno cinaancho biddissa tirtanno.

Ganallo:

Eishsha la'i

Eishshuwa:

Ganallo:

Assishshu Su'ma[(VarSu'ma1 [Danu Gede][, VarSu'ma2 [Danu Gede][,...]]]) [Danu Gede]

fooliishsho taysha

[Assishsha Fuli]

fooliishsho taysha

Assishsha Gudi

Eishsha

Su'ma: Assishshatenni higgino hornyo amadate cinaancho biddissa su'ma.

VarSu'ma: Cinaancho biddissa wido sa'anno eishsha.

Dana: Danu-xawishshi qaraqaale.

Lawishsha:

Sub ExampleExit

Dim sReturn As String

Dim sListArray(10) As String

Dim siStep As Single

    siQaafo = 0 Nni 10 geeshsha ' Dira jifamino daatinni wonshi

        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

' XuruuruHaso BorroteEo ra BorroteDira:sDirto() hasanno:

' Qolote gumi eote woy 0 (Ona) mashalaqqisaanchooti

    For iCount=1 To Ubound( sList() )

        If sList( iCount ) = sItem Then

            afamino sUduunnicho ' fuli

        End If

    Next iCount

    If iCount = Ubound( sList() ) Then iCount = 0

    LinSearch = iCount

End Function