Declare the jagged array as 4 rows high : Multiple dimensional array « Collections « VB.Net Tutorial

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

Option Strict On
 Imports System

 Public Class Tester
     Public Shared Sub Main()
         Const rowsUB As Integer = 3  ' upper bounds
         Const rowZero As Integer = 5
         Const rowOne As Integer = 2
         Const rowTwo As Integer = 3
         Const rowThree As Integer = 5

         Dim i As Integer
         
         Dim jaggedArray(rowsUB)() As Integer

         ReDim jaggedArray(0)(rowZero)
         ReDim jaggedArray(1)(rowOne)
         ReDim jaggedArray(2)(rowTwo)
         ReDim jaggedArray(3)(rowThree)

         jaggedArray(0)(3) = 15
         jaggedArray(1)(1) = 12
         jaggedArray(2)(1) = 9
         jaggedArray(2)(2) = 99
         jaggedArray(3)(0) = 10
         jaggedArray(3)(1) = 11
         jaggedArray(3)(2) = 12
         jaggedArray(3)(3) = 13
         jaggedArray(3)(4) = 14

         For i = 0 To rowZero
             Console.WriteLine("jaggedArray(0)({0}) = {1}", _
                 i, jaggedArray(0)(i))
         Next

         For i = 0 To rowOne
             Console.WriteLine("jaggedArray(1)({0}) = {1}", _
                 i, jaggedArray(1)(i))
         Next

         For i = 0 To rowTwo
             Console.WriteLine("jaggedArray(2)({0}) = {1}", _
                 i, jaggedArray(2)(i))
         Next

         For i = 0 To rowThree
             Console.WriteLine("jaggedArray(3)({0}) = {1}", _
                 i, jaggedArray(3)(i))
         Next
     End Sub
 End Class

jaggedArray(0)(0) = 0
jaggedArray(0)(1) = 0
jaggedArray(0)(2) = 0
jaggedArray(0)(3) = 15
jaggedArray(0)(4) = 0
jaggedArray(0)(5) = 0
jaggedArray(1)(0) = 0
jaggedArray(1)(1) = 12
jaggedArray(1)(2) = 0
jaggedArray(2)(0) = 0
jaggedArray(2)(1) = 9
jaggedArray(2)(2) = 99
jaggedArray(2)(3) = 0
jaggedArray(3)(0) = 10
jaggedArray(3)(1) = 11
jaggedArray(3)(2) = 12
jaggedArray(3)(3) = 13
jaggedArray(3)(4) = 14
jaggedArray(3)(5) = 0