Imports System.Console
 
Module abc
 
    Sub Main()
        Dim orte() As String = {"Berlin", "Hamburg", "München"}
 
        Dim temperaturen(,) As SByte = {{2, 3, 1}, {3, 6, 4}, {6, 8, 10} _
            , {10, 12, 13}, {14, 15, 15}, {19, 18, 19} _
          , {18, 16, 20}, {23, 24, 25}, {25, 22, 22} _
          , {15, 14, 15}, {10, 11, 13}, {9, 8, 7}}
 
        'Dim iOrt As Byte
        Dim iMonat As Byte
 
	WriteLine()
        WriteLine(" Monat  {0}   {1}   {2} ", orte(0), orte(1), orte(2))
 
        For iMonat = 1 To temperaturen.GetUpperBound(0)
            WriteLine("   {0}        {1}        {2}       {3}", iMonat, _
              temperaturen(iMonat, 0), _
                        temperaturen(iMonat, 1), temperaturen(iMonat, 2))
        Next
 
        End Sub
 
End Module