GoSub...Return Statement
उपकार्यतालिका बोलाउछ त्यसले उपकार्यतालिका वा प्रकार्यबाट लेबुलद्वारा देखाइएको हुन्छ । यो कथनहरूले दिएका लेबुल अर्को कथन नफर्किए सम्म कार्यान्वयन गर्दछ । त्यसपछाडि कार्यक्रम कथनसँग सुचारू भइरहँदा त्यसले GoSub कथन पछ्याउछ ।
वाक्य संरचना:
परामितिहरू हेर्नुहोस्
परामितिहरू:
सब/प्रकार्य
कथन खण्ड
लेबुल
कथन खण्ड
GoSub लेबुल
निस्कनुहोस् उप/प्रकार्य
लेबुल:
कथन खण्ड
फर्कनुहोस्
End Sub/प्रकार्य
GoSubकथनले उपकार्यतालिका वा प्रकार्य भित्रबाट लेबुलद्वारा देखाइका स्थानिय उपकार्यतालिकाहरू बोलाउछ । लेबुलकोनाम विराम चिन्हसँग अन्त्यमा हुनुपर्दछ ।
यदि कार्यक्रमले GoSubद्वारा अग्रसरता नदेखाई फर्काइएको कथनमा सामना गरेमा आधारभूत LibreOffice ले त्रुटि सन्देश फर्काउँछ । निस्कनुहोस् सब वा निस्कनुहोस् प्रकार्य निश्चित गर्न प्रयोग हुन्छ त्यसले अर्को कथन फर्किएर फैलनु भन्दा अगाडि कार्यक्रमले सब वा प्रकार्यलाई छाड्छ ।।
दिएका उदाहरणले GoSub र फर्काउँछको वर्णन गर्दछन् । कार्यान्वयन हुदैगरेका कार्यक्रम सेक्सन दुगुना गर्नलाई कार्यक्रमले दुईटा नम्बरहरूको बर्गमूल गणना गर्दछ जसलाई प्रयोगकर्ताद्वारा प्रविष्टि गरिन्छ ।
उदाहरण:
Sub ExampleGoSub
Dim iInputa As Single
Dim iInputb As Single
Dim iInputc As Single
iInputa = Int(आगत बाकस$ "पहिलो नम्बर प्रविष्ट गर्नुहोस्: ","नम्बरआगत"))
iInputa = Int(आगत बाकस$ "दोस्रो नम्बर प्रविष्ट गर्नुहोस्: ","नम्बरआगत"))
iInputc=iInputa
GoSub SquareRoot
iInputa;"को बर्गमूल";iInputc;" हो" मुद्रण गर्नुहोस् ।
iInputc=iInputb
GoSub SquareRoot
"को बर्गमूल";iInputb;" हो";iInputc मुद्रण गर्नुहोस्
Exit Sub
SquareRoot:
iInputc=sqr(iInputc)
Return
End Sub