Aufsteigende Zahlen in Textausgabe

[blu_9e3b62]

Hallo!

Ich beschreibe kurz mein kleines Problem:

Ich muss ein kleines Programm schreiben in dem es darum geht, dass ein Spieler bei einem Glücksspiel so lange spielt, bis er kein Geld mehr hat.
Per Debug.Print soll ich im Direktbereich sowas anzeigen lassen wie
„Betrag nach 1. Runde: xxx Euro“
„Betrag nach 2. Runde: xxx Euro“
„Betrag nach 3. Runde: xxx Euro“
.
.
.

Alles soweit kein Problem, aber wie kriege ich die aufsteigenden Zahlen vor „Runde:“ hin ?

Grüße!

[Chewpapa_22ca98]

Hallo,

etwa so:

 Dim i As Integer, Su As Single, Zeile As String
 For i = 1 To 3
 Zeile = "Betrag nach " & CStr(i) & ". Runde: " & Format(Su, "#.00") & " Euro"
 Next

Gruß Rainer