Rectangular Array : Multiple dimensional array « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Multiple dimensional array

Option Strict On
 Imports System
 Class Tester
     Shared Sub Main()
         Const rowsUB As Integer = 4
         Const columnsUB As Integer = 3

         Dim rectangularArray(rowsUB, columnsUB) As Integer

         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

         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

rectangularArray[0,0] = 0
rectangularArray[0,1] = 1
rectangularArray[0,2] = 2
rectangularArray[1,0] = 1
rectangularArray[1,1] = 2
rectangularArray[1,2] = 3
rectangularArray[2,0] = 2
rectangularArray[2,1] = 3
rectangularArray[2,2] = 4
rectangularArray[3,0] = 3
rectangularArray[3,1] = 4
rectangularArray[3,2] = 5