public class Test
public Shared Sub Main
Dim aryIntArray(9) As Integer
Dim aryStrArray(99) As String
Dim aryBigArray(1) As Object
Dim intCounter As Integer
'Populate array aryIntArray.
For intCounter = 0 To 9
aryIntArray(intCounter) = intCounter
Next
'Populate array aryStrArray.
For intCounter = 0 To 99
aryStrArray(intCounter) = "ITEM: " & intCounter.ToString("0000")
Next
'Set the array of arrays.
aryBigArray(0) = aryIntArray
aryBigArray(1) = aryStrArray
'Display some array values.
Console.WriteLine(aryBigArray(0)(7))
Console.WriteLine(aryBigArray(1)(16))
End Sub
End class
|