RosettaCodeData/Task/Loops-Foreach/VBScript/loops-foreach.vb

6 lines
88 B
VB.net

items = Array("Apple", "Orange", "Banana")
For Each x In items
WScript.Echo x
Next