GoSub...Return Statement

རྒྱུན་ལས་འོག་མ་ཡང་ན་ལས་འགན་ལས་ཁ་ཡིག་གིས་བརྡོ་སྟོན་ཡོད་མི་རྒྱུན་ལས་འོག་མ་ཅིག་བོདཔ་ཨིན། ཁ་ཡིག་རྗོས་སེ་གྲངས་མི་གསལ་བཤད་ཚུ་ཆ་མཉམ་ཤུལ་མ་སླར་ལོག་གསལ་བཤད་ཚུན་ཚོད་ལག་ལེནའཐབ་ཡོདཔ་ཨིན། ཤུལ་ལས་ལས་རིམ་དེ་གསལ་བཤད་ འགྱོ་འོག་མ་གསལ་བཤད་རྗེས་སུ་གྲངས་མི་དང་གཅིག་ཁར་འཕྲོ་མཐུདཔ་ཨིན།

ཚིག་སྦྱོར:

ཚད་བཟུང་ཚུ་བལྟ།

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

འོག་མ/ལས་འགན།

གསལ་བཤད་འགག་ནི།

ཁ་ཡིག

གསལ་བཤད་འགག་ནི།

འགྱོ་འོག་མ་ ཁ་ཡིག

ཕྱིར་འཐོན་འོག་མ/ལས་འགན།

ཁ་ཡིག་:

གསལ་བཤད་འགག་ནི།

སླར་ལོག

མཇུག་འོག་མ/ལས་འགན།

འགྱོ་འོག་མ་ གསལ་བཤད་ཀྱིས་ རྒྱུན་ལས་འོག་མ་ཡང་ན་ལས་འགན་ནང་འཁོད་ལས་ཁ་ཡིག་གིས་བརྡ་སྟོན་འབད་མི་རྒྱུན་ལས་འོག་མ་ཉེན་གནས་ཅིག་བོདཔ་ཨིན། ཁ་ཡིག་གི་མིང་་དེ་མཇུག་ཀོ་ལཱོན་གྱིས་བསྡ་དགོཔ་ཨིན (":").

ཉེན་བརྡའི་ངོས་དཔར།

ལས་རིམ་དེ་གིས་སླར་ལོག་གསལ་བཤདའགྱོ་འོག་མ་གྱིས་སྦོམ་མ་བཟོ་མི་གདོང་ཐུག་འབྱུང་པ་ཅིན་ LibreOffice གཞི་རིམ་གྱིས་འཕྲིན་དོན་འཛོལ་བ་ཅིག་སླར་ལོགཔ་ཨིན། ལས་རིམ་དེ་གིས་ཤུལ་མ་སླར་ལོག་གསལ་བཤད་དེ་མ་ལྷོད་པའི་ཧེ་མ་འོག་མ་ཡང་ན་ལས་འགན་གྱིས་བཀོག་བཞག་ཡོད་ངེས་ཏིག་ལུ་ ཕྱིར་ཐོན་འོག་མ་ ཡང་ན་ ཕྱིར་ཐོན་ལས་འགན ལག་ལེན་འཐབ།


འོག་གི་དཔེར་བརྗོད་ཀྱིས་འགྱོ་འོག་མ་ དང་ སླར་ལོག་གི་ལག་ལེན་འཐབ་ཐངས་དེ་འགྲེམས་སྟོནམ་ཨིན། ལས་རིམ་དབྱེ་ཚན་ཚར་གཉིས་ལག་ལེན་འཐབ་དེ་གིས་ ལས་རིམ་གྱིས་ལག་ལེན་པ་གིས་བཙུགས་ཡོད་མི་ཨང་གཉིས་ཀྱི་གྲུ་བཞི་ནར་མོ་རྩ་བ་དེ་རྩིས་སྟོནམ་ཨིན།

དཔེར་བརྗོད:

Sub ExampleGoSub

Dim iInputa As Single

Dim iInputb As Single

Dim iInputc As Single

    ཨའི་ཨིན་པུཊི་ཨེ་ = ཨིན་ཊི་(ཨིན་པུཊི་སྒྲོམ་$ "Enter the first number: ","NumberInput"))

    ཨའི་ཨིན་པུཊི་བི་ = ཨིནཊི(ཨིན་པུཊི་སྒྲོམ་$ "Enter the second number: ","NumberInput"))

    iInputc=iInputa

    GoSub SquareRoot

    དཔར་བསྐྲུན་འབད་ "The square root of";iInputa;" is"ཨིན་པིཊི་སི།

    iInputc=iInputb

    GoSub SquareRoot

    དཔར་བསྐྲུན་འབད "The square root of";iInputb;" is"ཨའི་ཨིན་པུཊི་་སི།

    Exit Sub

SquareRoot:

    iInputc=sqr(iInputc)

    Return

End Sub