Module
Contents
Index 🔎︎

# Exit Statement

Do...Loop For...Nextརྟེན་གྲངས་སམ་ཡན་ལག་དཔེ་རིམ་ལས་ཕྱིར་ཐོན།

## བརྡ་འཕྲོད་

    "ཞུགས་གྲངས་"ཆ་ཤས་ལ་དཔྱད་གཟིགས་མཛོད་

## ཁུགས་གྲངས་

Exit Do

Do...Loop རྗོད་པའི་ནང་ཁོ་ནར་ཕན་ནུས་ལྡན་ ནུས་པ་ནི་བསྐྱར་འཁོར་ལ་ཕྱིར་ཐོན་བྱེད་པ་དེ་ཡིན། བྱ་རིམ་གྱི་མུ་མཐུད་ནས་Loop རྗོད་པའི་རྗེས་ཀྱི་རྗོད་པ་ལག་བསྟར་བྱེད། གལ་ཏེ་ Do...Loop རྗོད་པ་ནི་སྐོང་འཛུད་རྗོད་པ་ཡིན་ན་ གཤམ་གྱི་རིམ་པ་ཅུར་མཐོ་བའི་བསྐྱར་འཁོར་ནང་བརྒྱུད་སྤྲོད་བྱེད་པ་ཚོད་འཛིན་བྱེད།

Exit For

For...Next བསྐྱར་འཁོར་ནང་ཁོ་ནར་ནུས་པ་ཡོད་ ནུས་པ་དེ་ནི་བསྐྱར་འཁོར་ལས་ཕྱིར་ཐོན་པ་དེ་ཡིན། བྱ་རིམ་གྱིས་མུ་མཐུད་ནས་ Next རྗོད་པའི་རྗེས་ཀྱི་རྗོད་པ་དང་པོ་དེ་ལག་བསྟར་བྱེད། སྐོས་འཛུད་བྱས་པའི་རྗོད་པའི་ནང་གཤམ་གྱི་རིམ་པ་ཅུང་མཐོ་བའི་བསྐྱར་འཁོར་ནང་བརྒྱུད་སྤྲོད་བྱ་བ་ཚོད་འཛིན་བྱེད།

Exit Function

ལམ་སེང་རྟེན་གྲངས་བརྒྱུད་རིམ་ཕྱིར་ཐོན། བྱ་རིམ་གྱིས་མུ་མཐུད་ནས་རྟེན་གྲངས་ཁོལ་སྤྱོད་བྱས་རྗེས་ཀྱི་རྗོད་པ་ལག་བསྟར་བྱེད།

Exit Sub

ཡན་ལག་དཔེ་རིམ་ལས་འཕྲལ་དུ་ཕྱིར་ཐོན། བྱ་རིམ་གྱི་མུ་མཐུད་ནས་ཡན་ལག་བྱ་རིམ་ཁོལ་སྤྱོད་རྗེས་ཀྱི་རྗོད་པ་ལག་བསྟར་བྱེད།

Exit རྗོད་པས་བྱ་རིམ་གྲུབ་ཆའི་མཇུག་སྒྲིལ་ལ་མཚན་འཇོག་བྱ་མི་ཐུབ་ End རྗོད་པ་དང་མ་ཁྲུལ་བ་བྱ་རོགས།

## དཔེ་གཞི་

    Sub ExampleExit

    Dim sReturn As String

    Dim sListArray(10) As String

    Dim siStep As Single

        For siStep = 0 to 10 REM གཞི་གྲངས་ཚོད་བགམ་སྤྱད་ནས་ཚོ་གྲངས་སྐོང་གསབ་བྱ་བ་

            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

    REM LinSearch searches a TextArray: sList() for a TextEntry:

    REM གཤམ་བྱང་གི་བཤེར་འདྲེན་ནམ་0 (སྟོང་པ་)ཕྱིར་ལོག་

        For iCount=1 To Ubound( sList() )

            If sList( iCount ) = sItem Then

                Exit for REM ཪྙེད་པ་ sItem

            End If

        Next iCount

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

        LinSearch = iCount

    End Function