RosettaCodeData/Task/Loops-Foreach/VBScript/loops-foreach.vbscript
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
109 B
Text

dim items(2)
items(0)="Apple"
items(1)="Orange"
items(2)="Banana"
For Each x in items
WScript.Echo x
Next