rzk
Goto Top

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

Content-ID: 19593

Url: https://administrator.de/contentid/19593

Ausgedruckt am: 26.11.2024 um 14:11 Uhr

gemini
gemini 13.11.2005 um 16:43:35 Uhr
Goto Top
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!!!