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