/text/sbasic/shared/03090412.xhp

Exit statement Exit Statement [Runtime] Exits a Do...Loop, For...Next, a function, or a subroutine.

Syntax: see Parameters Parameters: Exit Do Only valid within a Do...Loop statement to exit the loop. Program execution continues with the statement that follows the Loop statement. If Do...Loop statements are nested, the control is transferred to the loop in the next higher level. Exit For Only valid within a For...Next loop to exit the loop. Program execution continues with the first statement that follows the Next statement. In nested statements, the control is transferred to the loop in the next higher level. Exit Function Exits the Function procedure immediately. Program execution continues with the statement that follows the Function call. Exit Sub Exits the subroutine immediately. Program execution continues with the statement that follows the Sub call. The Exit statement does not define the end of a structure, and must not be confused with the End statement. Example: Sub ExampleExit Dim sReturn As String Dim sListArray(10) as String Dim siStep as Single For siStep = 0 to 10 REM Fill array with test data sListArray(siStep) = chr(siStep + 65) msgbox sListArray(siStep) next siStep sReturn = LinSearch(sListArray(), "B") Print sReturn end sub Function LinSearch( sList(), sItem As String ) as integer dim iCount as Integer REM LinSearch searches a TextArray:sList() for a TextEntry: REM Returns the index of the entry or 0 ( Null) for iCount=1 to Ubound( sList() ) if sList( iCount ) = sItem then Exit for REM sItem found end if next iCount if iCount = Ubound( sList() ) then iCount = 0 LinSearch = iCount end function