Module
Contents
Index 🔎︎

# 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