Module Module1
Sub Main()
Dim arr As String() = {"VB.NET", "C", "C++", "PHP", "C#"}
PrintIndexAndValues(arr)
End Sub
Sub PrintIndexAndValues(arr() As String)
Dim i As Integer
For i = 0 To arr.Length - 1
Console.WriteLine("({0}) : {1}", i, arr(i))
Next i
End Sub
End Module
' run:
'
' (0) : VB.NET
' (1) : C
' (2) : C++
' (3) : PHP
' (4) : C#