'Pętla licznikowa FOR-NEXT:
for licznik=0 to 3
	Wscript.StdOut.WriteLine licznik 
next
'Pętla licznikowa FOR-NEXT odliczająca co dwa:
for licznik=0 to 4 step 2
	script.StdOut.WriteLine licznik 
next
'Pętla licznikowa FOR-NEXT odliczająca wtył:
for licznik=3 to 0 step -1
	Wscript.StdOut.WriteLine licznik
next
'Pętla DO-UNTIL-LOOP - warunek sprawdzający na początku:
do until licznik=10 '(Dopóki warunek jest niespełniony)
	licznik=licznik+1
	Wscript.StdOut.WriteLine licznik
loop
'Pętla DO-UNTIL-LOOP - warunek sprawdzający na końcu:
licznik=0
do
	licznik=licznik+1
	Wscript.StdOut.WriteLine licznik
loop until licznik=10
'Pętla DO-WHILE-LOOP - warunek sprawdzający na początku:
licznik=0
do while licznik<10 '(Dopóki warunek prawdziwy.)
	licznik=licznik+1
	Wscript.StdOut.WriteLine licznik
loop
'Pętla DO-WHILE-LOOP - warunek sprawdzający na końcu:
licznik=0
do
	licznik=licznik+1
	Wscript.StdOut.WriteLine licznik
loop  while licznik<10 '(Dopóki warunek prawdziwy.)

do
	Wscript.StdOut.WriteLine "Podaj liczbe [0-1023]:"
	x=Wscript.StdIn.ReadLine
loop while (x>1024 or x<0)

'Pętla WHILE-WEND:
licznik = 0
while licznik < 15 '(Dopóki warunek prawdziwy.)  
      licznik = licznik + 1
      Wscript.StdOut.WriteLine licznik
wend

'Pętla nieskończona
'DO : LOOP