Microsoft Visual Basic Script ( VBS) sproget tillader brugere at tilføje ekstra funktioner til deres Window applikationer . Det giver dig også mulighed for at sløjfe udførelsen af ​​VBS script , når du har brug for at køre en gruppe af VBS udsagn gentagne gange. Du kan gentage de udtalelser , indtil en betingelse er sand eller falsk , eller gentage udsagn et bestemt antal gange. Loop udsagn i VBS scripts hjælpe dig til at tilføje yderligere muligheder for at Windows-programmer. Instruktioner
1

Klik på "Start " i Windows efterfulgt af " Microsoft Visual Basic Script Editor"
2

Indtast følgende kode i det åbne vindue : .
< p> Sub ChkFirstWhile ()

Dim counter, myNum

counter = 0

myNum = 20

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

counter = counter + 1

loop

MsgBox

"The loop lavet '& counter &' gentagelser. " end Sub

sub DoMyProc50Times ()

Dim x

For x = 1 To 50

MyProc

Næste
< p> MsgBox " loop gentager 50 gange. "

End Sub

Sub cmdChange_OnClick

Dim d 'Opret en variabel

Set d = CreateObject ( " Scripting.Dictionary " )

d.Add " 0", " Grækenland " 'Tilføj nogle nøgler og elementer

d.Add "1 ", " France "

d.Add " 2", " Spanien "

For Each jeg i d

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

Næste

MsgBox " loop gentager '& d &' Times. "

End Sub
3

Klik på "File " efterfulgt af " Gem ' at anvende koden VBS script i din ansøgning.