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