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