IBM Lotus Symphony
|
Umożliwia wyjście z pętli Do...Loop, For...Next, funkcji lub procedury.
patrz Parametry
Exit Do
Poprawne tylko w instrukcji Do...Loop - umożliwia wyjście z pętli. Wykonywanie programu jest kontynuowane od instrukcji, która występuje po instrukcji Loop. Jeśli instrukcje Do...Loop są zagnieżdżone, sterowanie jest przekazywane do pętli wyższego poziomu.
Exit For
Poprawna tylko w pętli For...Next - umożliwia wyjście z pętli. Program jest wykonywany od pierwszej instrukcji występującej po instrukcji Next. W instrukcjach zagnieżdżonych sterowanie jest przekazywane do pętli wyższego poziomu.
Exit Function
Natychmiast wychodzi z procedury Function. Program jest wykonywany od instrukcji występującej po instrukcji Function.
Exit Sub
Natychmiast wychodzi z procedury. Program jest wykonywany od instrukcji występującej po instrukcji Sub.
![]() |
Instrukcja Exit nie definiuje końca struktury i nie należy jej mylić z instrukcją End. |
Sub Przyklad_Exit
Dim sWynik As String
Dim sTablica(10) as String
Dim siKrok as Single
For siKrok = 0 to 10 REM Wypełnianie tablicy danymi testowymi
sTablica(siKrok) = chr(siKrok + 65)
msgbox sTablica(siKrok)
next siKrok
sWynik = LinSearch(sTablica(), "B")
Print sWynik
end sub
Function LinSearch( sLista(), sElement As String ) as integer
dim iLicznik as Integer
REM Funkcja LinSearch szuka tekstu w tablicy tekstowej sLista()
REM Zwraca indeks elementu albo wartość 0 (Null)
for iLicznik=1 to Ubound( sLista() )
if sLista( iLicznik ) = sElement then
Exit for REM Znaleziono pozycję sElement
end if
next iLicznik
if iLicznik = Ubound( sLista() ) then iLicznik = 0
LinSearch = iLicznik
end function