Hilfe!!

[dracoulars]

Hallo zusammen ich bin dabei ein Programm zu schreiben, das die underschiedlichen Temperaturen eines Jahres pro Monat für 3 Städte ausgibt.
Es soll so Aussehen

Monat Stadt1 Stadt2 Stadt3
1 2 3 -1
2 3 6 4
3 . . .
4 . . .
5 . . .
.
.
.
etc.
meine code versuche habe ich unten notiert.

Bei mir kommt nur ein Wust raus der komplett verschoben ist kann mir jemand helfen?

Vielen Dank


'_________________________________________________ _____________
Imports System.Console

Module abc
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
writeline("Monat {0,10}{1,10}{2,10}", orte(0), orte(1), orte(2))
For iOrt = 0 To 0
For iMonat = 0 To temperaturen.GetUpperBound(0)
Write("{0,5} {1,10}", iMonat, temperaturen(iMonat, iOrt))
'write()
Next
WriteLine()
Next
readline()

End Sub
End Module
'_________________________________________________ _________

[Bernhard Geyer]

Ändere doch mal den Titel deinen Posts.

Hilfe brauchen hier viele.

[homa57]

schleifen problem wäre ein stichwort

ändere mal
For iMonat = 0 To temperaturen.GetUpperBound(0)
und stelle diesen teil vor die andere schleife iOrt

For iMonat = 0 To temperaturen.GetUpperBound(0)
For iOrt = 0 To orte.GetUpperBound(0)
Write("{0,5} {1,10}", iMonat + 1, temperaturen(iMonat, iOrt))
'write()
Next
WriteLine()
Next

jetzt wird allerdings monat ort monat ort monat ausgegeben ;-)
dafür findest du die lösung alleine.

[dracoulars]

Danke homa57 ja hat geklappt bin happy vielen dank.