IBM Lotus Symphony


Sætningen Exit [Runtime]

Afslutter en Do...Loop, For...Next, en funktion eller en underrutine.

Syntaks:

Se under Parametre.

Parametre:

Exit Do

Bruges udelukkende i en Do...Loop-sætning til at afbryde løkken. Udførelsen af programmet fortsætter med den sætning, der står efter Loop-sætningen. Hvis der er flere indlejrede Do...Loop-sætninger, overføres kontrollen til løkken på niveauet lige ovenover.

Exit For

Bruges udelukkende i en For...Next-løkke til at afbryde løkken. Udførelsen af programmet fortsætter med den første sætning efter Next-sætningen. Ved indlejrede sætninger overføres kontrollen til løkken på niveauet lige ovenover.

Exit Function

Afbryder proceduren Function med det samme. Udførelsen af programmet fortsætter med den sætning, der står efter Function-kaldet.

Exit Sub

Afbryder underrutinen med det samme. Udførelsen af programmet fortsætter med den sætning, der står efter Sub-kaldet.

Ikonen Note Sætningen Exit definerer ikke slutningen på en struktur og må ikke forveksles med sætningen End.

Eksempel:

Sub EksempelExit

Dim sRetur As String

Dim sListeMatrix(10) as String

Dim siTrin as Single

For siTrin = 0 to 10 REM Udfyld matrix med testdata

sListeMatrix(siTrin) = chr$(siTrin + 65)

MsgBox sListeMatrix(siTrin)

Next siTrin

sRetur = FindLinje(sListeMatrix(), "B")

Print sRetur

End Sub

Function FindLinje( sListe(), sElement As String ) As Integer

Dim iAntal As Integer

REM FindLinje søger i en TekstMatrix:sListe() efter en Tekstindgang:

REM Returnerer indgangens indeks eller 0 (NULL)

for iAntal=1 to Ubound( sListe() )

if sListe( iAntal ) = sElement then

Exit For REM sElement fundet

End If

Next iAntal

If iAntal = Ubound( sListe() ) Then iAntal = 0

FindLinje = iAntal

End Function


Produktfeedback | Yderligere dokumentation | Varemærker