Imports System.Collections.Generic public class Test public Shared Sub Main Dim squares As Array = Array.CreateInstance(GetType(Integer), 11) For i As Integer = 0 To 10 squares.SetValue(i * i, i) Next i For i As Integer = 0 To 10 Console.WriteLine(squares.GetValue(i).ToString) Next i End Sub End class
0 1 4 9 16 25 36 49 64 81 100