Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As String() = {"vb.net", "c#", "c", "c++", "java", "rust"}
Dim i As Integer = 0
For Each s As String In arr
Console.WriteLine(i & " " & s)
i += 1
Next
End Sub
End Class
' run:
'
' 0 vb.net
' 1 c#
' 2 c
' 3 c++
' 4 java
' 5 rust
'