IBM Lotus Symphony
|
Afslutter en Do...Loop, For...Next, en funktion eller en underrutine.
Se under 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.
![]() |
Sætningen Exit definerer ikke slutningen på en struktur og må ikke forveksles med sætningen End. |
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