Mega Code Archive

 
Categories / VB.Net / Data Structure
 

Declaring, allocating and initializing arrays

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