GoSub...Return Statement

ཡན་ལག་འཆར་ཅན་བྱ་རིམ་མམ་རྟེན་གྲངས་ནང་གི་གཞི་གྲངས་མཚོན་རྟགས་ཀྱིས་གཏན་འཁེལ་བྱས་པའི་ཡན་ལག་འཆར་ཅན་བྱ་ རིམ་ཁོལ་སྤྱོད་བྱ། གཞི་གྲངས་མཚོན་རྟགས་རྗེས་ཀྱི་རྗོད་པ་ལག་བསྟར་གྱིས་གཤམ་གྱི་ Return རྗོད་པར་སླེབས་པའི་བར་དུ་ཡིན། དེ་རྗེས་བྱ་རིམ་གྱིས་མུ་མཐུད་ GoSub རྗོད་པའི་རྗེས་ཀྱི་རྗོད་པ་ལག་བསྟར་བྱེད།

བརྡ་འཕྲོད་

"ཞུགས་གྲངས་"ཆ་ཤས་ལ་དཔྱད་གཟིགས་མཛོད་

ཁུགས་གྲངས་

Sub/Function

རྗོད་པའི་མིང་

ཤོག་བྱང་

རྗོད་པའི་མིང་

GoSub Label

Exit Sub/Function

Label:

རྗོད་པའི་མིང་

Return

End Sub/Function

GoSub རྗོད་པ་ནི་ཡན་ལག་དཔེ་རིམ་ལམ་རྟེན་གྲངས་ནང་གི་གཞི་གྲངས་མཚོན་རྟགས་ཀྱི་ཆ་ཤས་ཀྱི་ཡན་ལག་དཔེ་རིམ་གསལ་སྟོན་ལ་ཁོལ་སྤྱོད་བྱེད། གཞི་གྲངས་མཚོན་རྟགས་མིང་དེ་ངེས་པར་དུ་འབྱེད་རྟགས་ (":") ཀྱིས་མཇུག་བསྡུ་བའོ།

གལ་ཏེ་ Return རྗོད་པའི་རྗེས་GoSubམེད་པ་ཤེས་ན་ LibreOffice ཧུང་གིས་ནོར་འཁྲུལ་ཞིག་ཕྱིར་ལོག་བྱེད། Exit Sub འམ་ Exit Function སྤྱད་པ་དང་བྱ་རིམ་རྗེས་མའི་ Return རྗོད་པའི་སྔོན་དུ་མ་སླེབས་སྔོན་ལན་ལག་བྱ་རིམ་མམ་རྟེན་གྲངས་ལས་བྲལ་བ་འགན་ལེན་བྱ་ཐུབ།

གཤམ་གྱི་དཔེ་གཞི་ནི་ GoSub དང་ Return བེད་སྤྱོད་གསལ་བཤད་བྱེད་པར་སྤྱོད་པར་ཡིན། བྱ་རིམ་དུམ་བུ་ལག་བསྟར་ཐེངས་མ་གཉིས་ཀྱི་ཉིས་བསྒྱུར་གཞི་རྩིས་རྒྱག་བྱ།

དཔེ་གཞི་

Sub ExampleGoSub
Dim iInputa As Single
Dim iInputb As Single
Dim iInputc As Single
    iInputa = Int(InputBox("Enter the first number:","NumberInput"))
    iInputb = Int(InputBox("Enter the second number:","NumberInput"))
    iInputc=iInputa
    GoSub SquareRoot
    Print "The square root of";iInputa;" is";iInputc
    iInputc=iInputb
    GoSub SquareRoot
    Print "The square root of";iInputb;" is";iInputc
    Exit Sub
SquareRoot:
    iInputc=sqr(iInputc)
    Return
End Sub