Loops/Foreach: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 2,173: | Line 2,173: | ||
<lang v>[1 2 3] [puts] step</lang> |
<lang v>[1 2 3] [puts] step</lang> |
||
=={{header|VBA}}== |
|||
<lang VB>Public Sub LoopsForeach() |
|||
Dim FruitArray() As Variant |
|||
Dim Fruit As Variant |
|||
FruitArray = [{"Apple","Banana","Strawberry"}] |
|||
Dim FruitBasket As Collection |
|||
Set FruitBasket = New Collection |
|||
For Each Fruit In FruitArray |
|||
FruitBasket.Add Fruit |
|||
Next Fruit |
|||
For Each Fruit In FruitBasket |
|||
Debug.Print Fruit |
|||
Next Fruit |
|||
End Sub</lang> |
|||
=={{header|VBScript}}== |
=={{header|VBScript}}== |
||
<lang vbscript>items = Array("Apple", "Orange", "Banana") |
<lang vbscript>items = Array("Apple", "Orange", "Banana") |