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