Module
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