10 lines
301 B
Text
10 lines
301 B
Text
Public Sub Main()
|
|
Dim siCount As Short
|
|
Dim cCollection As Collection = ["0": "zero", "1": "one", "2": "two", "3": "three", "4": "four",
|
|
"5": "five", "6": "six", "7": "seven", "8": "eight", "9": "nine"]
|
|
|
|
For siCount = 0 To 9
|
|
Print cCollection[Str(siCount)]
|
|
Next
|
|
|
|
End
|