Initializing arrays : Array « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Array

Module Tester

   Sub Main()
      Dim i As Integer

      Dim array1, array2 As Integer() ' declare two arrays

      ' initializer list specifies number of elements
      ' and value of each element
      array1 = New Integer() {2, 7, 4, 8, 5, 14, 90, 70, 60, 37}

      ' allocate array2 based on length of array1
      array2 = New Integer(array1.GetUpperBound(0)) {}

      ' set values in array2 by a calculation
      For i = 0 To array2.GetUpperBound(0)
         array2(i) = 2 + 2 * i
      Next

      Console.WriteLine("Subscript " & vbTab & "Array1" & vbTab & _
         "Array2")

      ' display values for both arrays
      For i = 0 To array1.GetUpperBound(0)
         Console.WriteLine(i & vbTab & array1(i) & vbTab & array2(i))
      Next

   End Sub 

End Module

Subscript       Array1  Array2
0       2       2
1       7       4
2       4       6
3       8       8
4       5       10
5       14      12
6       90      14
7       70      16
8       60      18
9       37      20