Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim i As Integer
Dim array As Integer() ' declare array variable
Dim array1, array2 As Integer() ' declare two arrays
array = New Integer(9) {} ' allocate memory for array
' initializer list specifies number of elements
' and value of each element
array1 = New Integer() {32, 27, 64, 18, 95, _
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 & "Array" & vbTab & _
"Array1" & vbTab & "Array2" & vbCrLf )
' display values in array
For i = 0 To array.GetUpperBound(0)
Console.WriteLine( i & vbTab & array(i) & vbTab & _
array1(i) & vbTab & array2(i) & vbCrLf )
Next
Console.WriteLine( vbCrLf & "The array contains " & _
array.Length & " elements." )
End Sub
End Class