IBM Lotus Symphony


Instrukcja Exit [środowisko wykonawcze]

Umożliwia wyjście z pętli Do...Loop, For...Next, funkcji lub procedury.

Składnia

patrz Parametry

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.

Ikona Uwaga Instrukcja Exit nie definiuje końca struktury i nie należy jej mylić z instrukcją End.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe