Module
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