Microsoft Visual Basic Script ( VBS) langue permet aux utilisateurs d'ajouter des fonctions supplémentaires à leurs applications Windows . Il vous donne également la possibilité de boucler l'exécution de script VBS lorsque vous devez exécuter un groupe d'instructions VBS à plusieurs reprises . Vous pouvez répéter les instructions jusqu'à ce qu'une condition est vraie ou fausse ou déclarations répétées un certain nombre de fois . Les instructions de boucle dans les scripts VBS vous permettent d'ajouter des options supplémentaires pour les applications Windows. Instructions
1

Cliquez sur "Démarrer " de Windows puis « Éditeur de script Microsoft Visual Basic "
2

Entrez le code suivant dans la fenêtre ouverte : .
< p> Sous CtrlPremierWhile ()

Dim compteur , myNum

compteur = 0

myNum = 20

Do While myNum > 10 & < p> myNum = myNum - 1 x

compteur = compteur + 1

boucle

MsgBox

" La boucle a effectué " & compteur & " répétitions. " End Sub

sous DoMyProc50Times ()

Dim x

Pour x = 1 à 50

MyProc

Suivant
< p> MsgBox " La boucle se répète 50 fois. "

End Sub Sub

cmdChange_OnClick

Dim. d 'Créer une variable

Set d = CreateObject ( " Scripting.Dictionary " )

d.Add " 0", " Grèce " ' Ajouter des clés et des articles

d.Add "1", "France"

d.Add "2" , "Espagne"

pour chaque i dans d

Document.frmForm.Elements ( I). Value = D.Item (I)

Suivant

MsgBox " Les répétitions de la boucle » et d & ' temps ».

End Sub
3

Cliquez sur " fichier "puis " Enregistrer " d'appliquer le code script VBS dans votre application.