Mega Code Archive
Two Dimensional Rectangle Array
<![CDATA[
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Const rowsUB As Integer = 4
Const columnsUB As Integer = 3
' declare a 4x3 Integer array
Dim rectangularArray(rowsUB, columnsUB) As Integer
' populate the array
Dim i As Integer
For i = 0 To rowsUB - 1
Dim j As Integer
For j = 0 To columnsUB - 1
rectangularArray(i, j) = i + j
Next j
Next i
' report the contents of the array
For i = 0 To rowsUB - 1
Dim j As Integer
For j = 0 To columnsUB - 1
Console.WriteLine( _
"rectangularArray[{0},{1}] = {2}", _
i, j, rectangularArray(i, j))
Next j
Next i
End Sub
End Class
]]>