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.
