GoSub...Return Statement

Gọi một chương trình con được ngụ ý bởi một nhãn từ một chương trình con hay hàm khác. Những câu lệnh theo sau nhãn đó được thực hiện đến khi tới câu lệnh Return kế tiếp. Sau đó thì chương trình tiếp tục bằng cách chạy câu lệnh theo sau câu lệnh GoSub.

Cú pháp:

xem Tham số

Tham số :

Con/Hàm

khối câu lệnh

Nhãn

khối câu lệnh

Nhãn GoSub

Exit Sub/Function

Nhãn:

khối câu lệnh

Return

End Sub/Function

Câu lệnh GoSub gọi một chương trình con cục bộ được ngụ ý bởi một nhãn từ bên trong một chương trình con hay hàm khác. Tên của nhãn phải kết thúc với một dấu hai chấm « : ».

Nếu chương trình gặp một câu lệnh Return không có GoSub đi trước, LibreOffice Basic sẽ trả về một thông điệp lỗi. Hãy dùng Exit Sub hay Exit Function để đảm bảo chương trình thoát khỏi một chương trình con hay hàm trước khi tới câu lệnh Return kế tiếp.

Mẫu ví dụ theo đây minh hoạ sử dụng hai câu lệnh GoSub và Return. Bằng cách thực hiện một phần chương trình hai lần, chương trình tính căn bậc hai của hai số được người dùng nhập.

Thí dụ :

Sub ExampleGoSub

Dim iInputa As Single

Dim iInputb As Single

Dim iInputc As Single

    iInputa = Int(InputBox("Gõ số thứ nhất: ","NumberInput"))

    iInputb = Int(InputBox("Gõ số thứ hai: ","NumberInput"))

    iInputc=iInputa

    GoSub SquareRoot

    Print "Căn bậc hai của";iInputa;" là";iInputc

    iInputc=iInputb

    GoSub SquareRoot

    Print "Căn bậc hai của";iInputb;" là";iInputc

    Exit Sub

SquareRoot:

    iInputc=sqr(iInputc)

    Return

End Sub