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