Module Module1
Sub Main()
Dim intArray As Array = Array.CreateInstance(GetType(Int32), 5)
Dim i As Integer
For i = intArray.GetLowerBound(0) To intArray.GetUpperBound(0)
intArray.SetValue(i + 10, i)
Next
PrintArray(intArray)
End Sub
Public Sub PrintArray(arr As Array)
Dim i As Integer
For i = arr.GetLowerBound(0) To arr.GetUpperBound(0)
Console.WriteLine("arr({0}) = {1}", i, arr.GetValue(i))
Next i
End Sub
End Module
' run:
'
' arr(0) = 10
' arr(1) = 11
' arr(2) = 12
' arr(3) = 13
' arr(4) = 14