Faire une boucle te permet d'ex�cuter un groupe de rapports � plusieurs reprises jusqu'� ce qu'une condition soit fausse ; d'autres r�p�tent des rapports jusqu'� ce qu'une condition soit vraie. Il y a �galement des boucles qui r�p�tent des rapports dans un nombre de fois sp�cifique.
Les rapports faisants une boucle suivants sont disponibles dans VBScript :
� la boucle : Boucles tandis qu'ou jusqu'� une condition est vrai.
Tandis que� Wend : Boucles tandis qu'une condition est vraie.
Pour� apr�s : R�p�te a � l'oppos� des rapports courus dans un nombre indiqu� de temps. des p�riodes.
Pour chacun� apr�s : R�p�te un groupe de rapports pour chaque article dans une collection ou chaque �l�ment d'une rang�e.
VBScript : - Faire les boucles
Vous pouvez employer� des rapports de boucle ex�cutez un bloc de rapports un nombre de fois ind�fini. Les rapports sont r�p�t�s l'un ou l'autre jusqu'� ce qu'une condition devienne vraie ou tandis qu'une condition est vraie
R�p�tition des rapports tandis que la condition obtient satisfaite
Tandis que le mot-cl� est employ� pour v�rifier une condition faisante une boucle dans a� le rapport de boucle. Vous pouvez �galement v�rifier la condition avant que vous �criviez la boucle (suivant les indications de l'exemple suivant de ChkFirstWhile), ou vous pouvez le v�rifier apr�s que la boucle ait fonctionn� au moins une fois (suivant les indications de l'exemple de ChkLastWhile). Du proc�d� de ChkFirstWhile, si le myNum est plac� � 9 au lieu de 20, les rapports � l'int�rieur de la boucle ne fonctionneront jamais. Du proc�d� de ChkLastWhile, les rapports � l'int�rieur de la boucle fonctionnent seulement une fois parce que la condition est d�j� fausse.
Sub ChkFirstWhile()
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "The loop made " & counter & " repetitions."
End Sub
Sub ChkLastWhile()
Dim counter, myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox "The loop made " & counter & " repetitions."
End Sub
R�p�ter un rapport jusqu'� ce que la condition devienne vraie
Vous pouvez employer jusqu'au mot-cl� dans deux mani�res de v�rifier une condition dans a� rapport de boucle. Vous pouvez v�rifier la condition avant que vous �criviez la boucle (suivant les indications de l'exemple suivant de ChkFirstUntil), ou vous pouvez le v�rifier apr�s que la boucle ait fonctionn� au moins une fois (suivant les indications de l'exemple de ChkLastUntil). Tant que la condition est fausse, faire une boucle se produit.
Sub ChkFirstUntil()
Dim counter, myNum
counter = 0
myNum = 20
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "The loop made " & counter & " repetitions."
End Sub
Sub ChkLastUntil()
Dim counter, myNum
counter = 0
myNum = 1
Do
myNum = myNum + 1
counter = counter + 1
Loop Until myNum = 10
MsgBox "The loop made " & counter & " repetitions."
End Sub
Vous pouvez sortir a� boucle en employant la sortie pour faire le rapport. Puisque si vous voulez sortir seulement dans certaines situations, comme pour �viter une boucle sans fin, vous devriez employer la sortie faire le rapport dans le v�ritable bloc de rapport d'si� puis� autrement rapport. Si la condition est fausse, la boucle fonctionne comme d'habitude.
VBScript : Tandis que-wend boucle
Tandis que-Wend la boucle est une boucle qui continue � faire une boucle tandis que quelque chose est vraie. Everytime elle fait une boucle le bloc de code qui est int�rieur la boucle de moment et obtient ex�cut�e.
Quand vous savez combien de r�p�titions vous voulez, vous pouvez employer a pour� apr�s le rapport pour ex�cuter un bloc de code.
Vous pouvez augmenter ou diminuer la valeur de la contre- variable en utilisant le mot-cl� d'�tape. L'exemple donn� au-dessous de la contre- variable j est incr�ment� par 2 chaque fois que les r�p�titions de boucle. Quand la boucle est finie, le total est la somme de 2, de 4, de 6, de 8, et de 10.
Note : Par mot-cl� de Exit For vous pouvez sortir de pour� apr�s le rapport toutes les fois que vous voulez.
Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
MsgBox "The total is " & total
End Sub
Pour chacun� apr�s boucle
A pour chacun� apr�s boucle est semblable � a pour� apr�s la boucle. Au lieu de r�p�ter les rapports un nombre de fois indiqu�, a pour chacun� apr�s boucle r�p�te un groupe de rapports pour chaque �l�ment d'une rang�e ou de chaque article dans une collection d'objets. C'est particuli�rement utile si vous ne connaissez pas combien d'�l�ments sont dans une collection d'objets.
