Imports System
Public Class Create2DArrayOfCharactersWithDifferentRowLengths
Public Shared Sub Main()
Dim jaggedArray As Char()() = New Char(2)() {}
jaggedArray(0) = New Char() {"V"c, "B"c}
jaggedArray(1) = New Char() {"p"c, "r"c, "o"c, "g"c, "r"c, "a"c, "m"c, "m"c, "i"c, "n"c, "g"c}
jaggedArray(2) = New Char() {"l"c, "a"c, "n"c, "g"c, "u"c, "a"c, "g"c, "e"c}
Dim rows As Integer = jaggedArray.Length
For i As Integer = 0 To rows - 1
For j As Integer = 0 To jaggedArray(i).Length - 1
Console.Write(jaggedArray(i)(j) & " ")
Next
Console.WriteLine()
Next
End Sub
End Class
' run:
'
' V B
' p r o g r a m m i n g
' l a n g u a g e
'