Nach jeder Ausgabe muss man enter drücken
Hier ist ein kleiner Quelltext für die Schule leider komme ich da nett weiter. Es sollen die Zahlen von 1-10 ausgegeben werden. Leider muss man nach jeder Ausgabe ENTER drücken wie kann ich die komplette zahlen reihe in einem Fenster ausgeben.
Dim intZeile
Dim paul(11,11)
Dim paul_ausgabe
Dim ausgabe(10,10)
while (i<=9)
i=i+1
paul(0,i)=i
paul(1,i)=i
paul_ausgabe=paul(0,i)
MSGBOX paul_ausgabe
wend
Dim intZeile
Dim paul(11,11)
Dim paul_ausgabe
Dim ausgabe(10,10)
while (i<=9)
i=i+1
paul(0,i)=i
paul(1,i)=i
paul_ausgabe=paul(0,i)
MSGBOX paul_ausgabe
wend
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 19593
Url: https://administrator.de/contentid/19593
Ausgedruckt am: 26.11.2024 um 14:11 Uhr
1 Kommentar
Dim paul
paul = ""
i = 0
While (i<=9)
i=i+1
If paul = "" Then
paul = i
Else
paul = paul & vbCrLf & i
End If
Wend
MSGBOX paul
Wenn es unbedingt mit einem Array gelöst werden soll:
Dim paul(10)
Dim strAusgabe
i = 0
While (i<=9)
i = i +1
paul(i) = i
Wend
While (i>=1)
strAusgabe = strAusgabe & paul(i) & vbCrLf
i= i - 1
Wend
MsgBox strAusgabe
PS: Toller Stil!!!