Instruction While...Wend
Lorsqu'un programme rencontre une instruction While, il vérifie la condition. Si celle-ci n'est pas remplie (False), l'exécution du programme se poursuit à partir des instructions figurant après l'instruction Wend. Si elle est remplie (True), la boucle est exécutée jusqu'à ce que le programme trouve Wend et revienne ensuite à l'instruction While. Si la condition est encore remplie (True), la boucle est de nouveau exécutée.
Contrairement à Do...Loop, une boucle While...Wend ne peut pas être annulée par l'instruction Exit. Ne quittez jamais une boucle While...Wend avec l'instruction GoTo, car cela risque d'entraîner une erreur d'exécution.
L'utilisation de Do...Loop, plus flexible, est recommandée.
Syntaxe :
While Condition [Instruction] Wend
Exemple :
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="Ceci est un texte court."
iRun = 1
while iRun < Len(sText)
if Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sText,0,"Texte codé"
End Sub