GoSub...Return Statement

서브루틴 또는 함수에서 레이블이 나타내는 서브루틴을 호출합니다. 레이블 뒤에 오는 문은 다음 Return 문을 만날 때까지 실행됩니다. 그런 다음 GoSub 문 뒤에 오는 문부터 프로그램 실행이 계속됩니다.

구문:

매개 변수 참조

Sub/Function

문 블록

레이블

문 블록

GoSub Label

Exit Sub/Function

Label:

문 블록

Return

End Sub/Function

GoSub 문은 서브루틴 또는 함수에서 레이블이 나타내는 로컬 서브루틴을 호출합니다. 레이블 이름은 콜론(":")으로 끝나야 합니다.

Return 문 앞에 <GoSub가 없을 경우 LibreOffice Basic은 오류 메시지를 반환합니다. 다음 Return 문에 도달하기 전에 Sub 또는 Function을 끝내려면 Exit Sub 또는 Exit Function을 사용합니다.

다음은 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