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