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