Module Module1
Sub Main()
Dim arr As String() = {"VB.NET", "C", "C++", "PHP", "C#"}
Dim ilist As IList(Of String) = Array.AsReadOnly(arr)
arr(1) = "Java"
Console.WriteLine("arr:")
PrintIndexAndValues(ilist)
Console.WriteLine("ilist:")
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
Public Sub PrintIndexAndValues(ilist As IList(Of String))
Dim i As Integer
For i = 0 To ilist.Count - 1
Console.WriteLine("({0}) : {1}", i, ilist(i))
Next i
End Sub
End Module
' run:
'
' arr:
' (0) VB.NET
' (1) : Java
' (2) : C++
' (3) : PHP
' (4) : C#
' ilist:
' (0) VB.NET
' (1) : Java
' (2) : C++
' (3) : PHP
' (4) : C#