Module Module1
Sub Main()
Dim s() As String = {"PHP", "C", "C++", "C#", "Java", "JavaScript",
"VB.NET", "VB6", "Pascal", "Objective-C", "Python"}
Dim i As Integer = 0
Dim sEnumerator As System.Collections.IEnumerator = s.GetEnumerator()
While (sEnumerator.MoveNext())
Console.WriteLine("s({0}) {1}", i, sEnumerator.Current)
i += 1
End While
End Sub
End Module
' run:
'
' s(0) PHP
' s(1) C
' s(2) C++
' s(3) C#
' s(4) Java
' s(5) JavaScript
' s(6) VB.NET
' s(7) VB6
' s(8) Pascal
' s(9) Objective-C
' s(10) Python