Entrez le code suivant dans la fenêtre ouverte:
Sous CtrlPremierWhile ()
Dim compteur, monNum
compteur = 0
myNum = 20
Do While monNum> 10
myNum = monNum - 1compteur = compteur + 1
Boucle
MsgBox "La boucle fait ' compteur «Répétitions».
End Sub
DoMyProc50Times sub ()
Dim x
Pour x = 1 à 50
MyProc
Suivant
MsgBox "La boucle se répète 50 fois."
End Sub
Sous cmdChange_onclick
DIM d 'Créer une variable
Set d = CreateObject ("Scripting.Dictionnary")
d.Add "0", "Grèce" 'ajouter quelques touches et articles
d.Add "1", "France"
d.Add "2", "Espagne"
Pour chaque i dans d
Document.frmForm.Elements (I) .Value = D.Item (I)
Suivant
MsgBox "La boucle se répète ' ré «Temps».
End Sub