Module Module1
Sub Main()
Dim s2d(,) As String = New String(,) {{"C", "C++"},
{"C#", "VB.NET"},
{"PHP", "JavaScript"},
{"Java", "Python"}}
Dim bound0 As Integer = s2d.GetUpperBound(0)
Dim bound1 As Integer = s2d.GetUpperBound(1)
For i As Integer = 0 To bound0
For j As Integer = 0 To bound1
Console.Write(s2d(i, j))
Console.Write(" ")
Next
Console.WriteLine()
Next
End Sub
End Module
'run:
'
' C C++
' C# VB.NET
' PHP JavaScript
' Java Python