Contents
Index 🔎︎

# Function Statement

སླར་ལོག་དབྱེ་བ་གཏན་འབེབས་བའོ་ནི་གསལ་བརྗོད་བཟུམ་སྦེ་ལག་ལེན་འཐབ་བཏུབ་པའི་རྒྱུན་ལས་འོག་མ་ངེས་འཛིན་འབདཝ་ཨིན།

## ཚིག་སྦྱོར།

ཚད་བཟུང་བལྟ།

## ཚད་བཟུང་ཚུ་:

ཚིག་སྦྱོར།

ལས་འགན་མིང་[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type]

གསལ་བཤད་འགག་ནི།

[ལས་འགན་ཕྱིར་འཐོན]

གསལ་བཤད་འགག་ནི།

ལས་འགན་མཇུག

ཚད་བཟུང་།

མིང་: རྒྱུན་ལས་འོག་མ་གི་མིང་དེ་ནང་ལས་འགན་གྱིས་སླར་ལོག་ཡོད་པའི་གནས་གོང་ཡོདཔ་ཨིན།

ཝར་མིང་: རྒྱུན་ལས་འོག་མ་ལུ་ཚད་བཟུང་རྩིས་སྤྲོད་འབད་ནི་ཨིན་མི།

དབྱེ་བ་: དབྱེ་བ་གསལ་བསྒྲགས་གཙོ་ཚིག

## དཔེར་བརྗོད:

    Sub ExampleExit
    Dim sReturn As String
    Dim sListArray(10) As String
    Dim siStep As Single
        ཨེསི་ཨའི་རིམ་པ་དོན་ལུ་  = ༠ ལས་ ༡༠ ལུ་རིམ་གྱིས་ཨེ་རེ་གཅིག་ཁར་བརྟག་ཞིབ་གནད་སྡུད་བཀང་།
            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
    ཨར་ཨི་ཨེམ་ལིན་འཚོལ་ཞིབ་གྱིས་ཚིག་ཡིག་ཐོ་བཀོད་ཅིག་གི་དོན་ལུ་ཚིག་ཡིག་ཨེ་རེ་:ཨེསི་ཐོ་ཡིག་()ཅིག་འཚོལ་ཞིབ་འབདཝ་ཨིན:
    ཨར་ཨི་ཨེམ་སླར་ལོག་གནས་གོང་དེ་ཐོ་བཀོད་ཡང་ ༠ (སྟོང་ཆ་)གི་ཟུར་ཐོ་ཨིན།
        For iCount=1 To Ubound( sList() )
            If sList( iCount ) = sItem Then
                ཨར་ཨི་ཨེམ་ཨེསི་རྣམ་གྲངས་འཚོལ་ཐོབ་དོན་ལུ་ཕྱིར་ཐོན།
            End If
        Next iCount
        If iCount = Ubound( sList() ) Then iCount = 0
        LinSearch = iCount
    End Function