'vbscriptеѭ

For..next 'ѭ
for i = 0 to 5
msgbox "ڵֵΪ" & i 


nextFor..each 'ѭ
dim names(2)
names(0) = "0"
names(1) = "1"
names(2) = "2"

for each x in names
   Msgbox x
nextDo...While 'ѭ
i=0
do while i < 10
   Msgbox i
   i=i+1
loop