Exit Statement

ཡོདཔ་ ལུང་ཐག་...འབད, ཤུལ་མ་...དོན་ལུ་, ལས་འགན་ ཡང་ན་རྒྱུན་ལས་འོག་མ།

ཚིག་སྦྱོར:

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

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

ཕྱིར་ཐོན་འབད

འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་ནང་འཁོད་ འཕྲལ་བཀོལ་ཕྱིར་ཐོན་ལུ་རྐྱངམ་ཅིག་ནུས་ཅན་ཨིན། ལས་རིམ་ལག་ལེན་འཐབ་ནི་དེ་གསལ་བཤད་ འཕྲལ་བཀོལ་གསལ་བཤད་ཀྱི་རྗེས་སུ་གྲངས་མི་དང་གཅིག་ཁར་འཕྲོ་མཐུདཔ་ཨིན། འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་ཚུ་ ནེསིཊིཌ་ཨིན་པ་ཅིན་ཚད་འཛིན་དེ་ཤུལ་མ་གནས་རིམ་མཐོ་མི་་འཕྲལ་བཀོལ་ནང་གནས་སོར་གཏང་ཡོདཔ་ཨིན།

ཕྱིར་ཐོན་དོན་ལུ

དོན་ལུ་...ཤུལ་མ་ འཕྲལ་བཀོལ་ནང་འཁོད་འཕྲལ་བཀོལ་ཕྱིར་ཐོན་ལུ་རྐྱངམ་ཅིག་ནུས་ཅན་ཨིན། ལས་རིམ་ལག་ལེན་འཐབ་ནི་དེ་གསལ་བཤད་དང་པ་ ཤུལ་མ་ གསལ་བཤད་རྗེས་སུ་གྲངས་མི་དང་གཅིག་ཁར་འཕྲོ་མཐུདཔ་ཨིན། ནེསིཊིཌ་གསལ་བཤད་ཚུ་ནང་ ཚད་འཛིན་དེ་ཤུལ་མ་གནས་རིམ་མཐོ་མི་ནང་འཕྲལ་བཀོལ་ལུ་གནས་སོར་གཏང་ཡོདཔ་ཨིན།

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

ལས་འགན་ བྱ་སྒོའི་ལམ་ལུགས་ དེ་འཕྲལ་ལས་ཕྱིར་བཏོན་གཏངམ་ཨིན། ལས་རིམ་ལག་ལེན་འཐབ་ནི་དེ་གསལ་བཤད་ ལས་འགན་ བོད་བརྡ་རྗེས་སུ་གྲངས་མི་དེ་འཕྲོ་མཐུདཔ་ཨིན།

ཕྱིར་ཐོན་འོག་མ

རྒྱུན་ལས་དེ་འཕྲོ་ལས་ཕྱིར་ཐོན་འབདཝ་ཨིན། ལས་རིམ་ལག་ལེན་འཐབ་ནི་འཕྲོ་མཐུད་ནི་གཅིག་ཁར་གསལ་བཤད་དེ་ འོག་མ་ བོད་བརྡ་རྗེས་སུ་གྲངསམ་ཨིན།

དྲན་འཛིན་ངོས་དཔར།

ཕྱིར་ཐོན་གསལ་བཤད་དེ་གིས་གཞི་བཀོད་ཀྱི་མཇུག་དེ་ངེས་འཛིན་མི་འབདཝ་དང་ མཇུག་གསལ་བཤད་གཅིག་ཁར་་མགུ་འཐོམ་ནི་མེད་འོང་།


དཔེར་བརྗོད:

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