L'instruction While...Wend répète des instructions tant que la condition spécifiée est vraie (True).
While Condition ' Instructions... Wend
Cette boucle signifie tant que (while) la condition est vraie, les instructions avant la fin de la boucle (Wend) sont exécutées.
Exemple : [voir]<html>
<body>
<%
Dim phrase(9), i
phrase(0) = "Ce"
phrase(1) = "texte"
phrase(2) = "contient"
phrase(3) = "un"
phrase(4) = "mot"
phrase(5) = "qui"
phrase(6) = "doit"
phrase(7) = "être"
phrase(8) = "trouvé"
recherche = "être"
i = 0
while trouve = False
If phrase(i) = recherche Then
Response.Write "Le verbe <b>" & recherche & "</b> a été trouvé" _
& " à la position n° <b>" & i & "</b>" _
& " au sein de la phrase suivante :<br>"
For i = 0 To 7 Step 1
Response.Write phrase(i) & " "
Next
Response.Write phrase(8) & ". "
trouve = True
End If
i = i + 1
Wend
%>
<body>
<html> |