Populating an Array of Arrays

Module Module1

Sub Main()

Dim IntArray(9) As Integer

Dim StrArray(99) As String

Dim Bigarray(1) As Object

Dim i As Integer

'populate array intArray

For i = 0 To 9

IntArray(i) = i

Next

'populate array StrArray

For i = 0 To 99

StrArray(i) = "ITEM" & i.ToString("0000")

Next

Bigarray(0) = IntArray

Bigarray(1) = StrArray

Console.WriteLine(Bigarray(0)(7))

Console.WriteLine(Bigarray(1)(16))

End Sub

End Module