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

ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་ཀྱི་གནས་གོང་གུ་རྟེན་ལས་རིམ་ཨང་རྟགས་ནང་གསལ་བཀོད་འབད་ཡོད་མི་གྱལ་ལེ་ཤ་གི་གཅིག་ལུ་ཡན་ལག་བཟོཝ་ཨིན།

ཚིག་སྦྱོར:

གུ་ ཨེན་འགྱོ་འོག་མ་ཁ་ཡིག་ ༡ [, Label2[, Label3[,...]]]

ཨང་གསལ་བརྗོད་གུ་་ལུ་འགྱོ་ ཁ་ཡིག་ ༡ [, Label2[, Label3[,...]]]

ཚད་བཟུང་ཚུ་:

ཨང་གསལ་བརྗོད་: ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་གང་རུང་ ༠་དང་ ༢༥༥ བར་ན་དེ་གིས་་གྱལ་དེ་ཚུ་ལས་རིམ་ཡན་ལག་་ཚུ་ལུ་གཏན་འབེབས་བཟོཝ་ཨིན། ཨང་གསལ་བརྗོད་དེ་ ༠ ཨིན་པ་ཅིན་ གསལ་བཤད་དེ་ལག་ལེན་མ་འཐབ་ཨིན། ཨང་གསལ་བརྗོད་དེ་ ༠ ལས་སྦོམ་མི་ཨིན་པ་ཅིན་ ལས་རིམ་དེ་གནས་ས་ཨང་གསལ་བརྗོད་ལུ་ཆ་མཉམ་པའི་ (༡ = ཁ་ཡིག་དང་པ་ ༢ = ཁ་ཡིག་གཉིས་པ་)ཁ་ཡིག་དེ་ལུ་མཆོངམ་ཨིན།

ག་ཡིག་: དམིགས་གཏད་གྱལ་འཁྲིལ་་ཏེ་ ལུ་འགྱོ་ ཡང་ན་ གཞི་བཀོད་ ལུ་འགྱོ་འོག་མ།

འགྱོ་ལུ་ཡང་ན་ འགྲོ་འོག་མ གཞི་བསྒྱུར་ཚུ་ཆ་མཉམ་ནུས་ཅན་ཨིན།

དཔེར་བརྗོད:

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:

    ཨེསི་ཝར་ =ཨེསི་ཝར & " From Sub 1 to" : སླར་ལོག

Sub2:

    ཨེསི་ཝར་ =ཨེསི་ཝར་ & " From Sub 2 to" : སླར་ལོག

Line1:

    ཨེསི་ཝར་ =ཨེསི་ཝར་ & " Label 1" : མཇུག་ཨི་ལུ་འགྱོ།

Line2:

    ཨེསི་ཝར་ =ཨེསི་ཝར་ & " Label 2"

Ende:

    MsgBox sVar,0,"On...GoSub"

End Sub