Contents
Index 🔎︎

# On...GoSub Statement; On...GoTo Statement

གྲངས་ཀའི་མཚོན་ཚུལ་གྱི་ཐང་ལ་གཞིགས་ནས་བྱ་རིམ་ཚབ་ཨང་ནང་གི་གཏན་འཁེལ་ཕྲེང་ནང་མཆོངས་བསྒྱུར་བྱེད།

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

    On N GoSub Label1[, Label2[, Label3[,...]]]
    On NumExpression GoTo Label1[, Label2[, Label3[,...]]]

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

NumExpression 0 ནས་ 255 བར་གྱི་གྲངས་ཀ་གང་རུང་མཚོན་པའི་ཚུལ་ བྱ་རིམ་ཕྲེང་གང་དུ་མཆོངས་བསྒྱུར་བྱ་བ་གཏན་འཁེལ་བྱ་བར་སྤྱོད་པར་ཡིན། གལ་ཏེ་ NumExpression ནི་ 0ཡིན་ན་རྗོད་པ་དེ་ལག་བསྟར་མི་བྱེད། NumExpression དེ་ 0 ལས་ཆེ་བའི་སྐབས་བྱ་རིམ་དེ་མཚོན་པའི་ཚུལ་གྱི་གཏན་འཁེལ་གནས་སའི་ཨང་སྒྲིག་གིས་ལྟོས་ཟླ་བྱས་པའི་གཞི་གྲངས་མཚོན་རྟགས་སར་མཆོངས་བསྒྱུར་བྱེད། (1 = གཞི་གྲངས་མཚོན་རྟགས་དང་པོ་ 2 = གཞི་གྲངས་མཚོན་རྟགས་གཉིས་པ་)

Label: ནི་ GoTo འམ་ GoSub གྲུབ་ཆའི་དམིགས་འབེན་ཕྲེང་ལ་རག་ལས།

GoTo འམ་ GoSub ཚད་ལྡན་ནུས་པ་ལྡན་ཡོད།

## དཔེ་གཞི་

    Sub ExampleOnGosub
    Dim iVar As Integer
    Dim sVar As String
        iVar = 2
        sVar =""
        On iVar GoSub Sub1, Sub2
        On iVar GoTo Line1, Line2
        Exit Sub
    Sub1:
        sVar =sVar & " From Sub 1 to" :Return
    Sub2:
        sVar =sVar & " From Sub 2 to" :Return
    Line1:
        sVar =sVar & " Label 1" :GoTo Ende
    Line2:
        sVar =sVar & " Label 2"
    Ende:
        MsgBox sVar,0,"On...GoSub"
    End Sub