Module Module1
    Sub Main()
        Dim orte() As String = {"Berlin", "Hamburg", "München"}
        Dim temperaturen(,) As Integer = {{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
 
        Console.WriteLine("Monat {0,10}{1,10}{2,10}", orte(0), orte(1), orte(2))
 
        For imonat = 0 To temperaturen.GetUpperBound(0)
            Console.Write("{0,5}", imonat + 1)
 
            For iort = 0 To orte.GetUpperBound(0)
                Console.Write("{0,10}", temperaturen(imonat, iort))
            Next
 
            Console.WriteLine()
        Next
 
        Console.ReadKey()
    End Sub
End Module