Dividier-Schleife

Neue Frage »

Auf diesen Beitrag antworten »
Susi89 Dividier-Schleife

Meine Frage:
Hallo, ich hab hier eine Aufgabe mit der ich Probleme habe.
Aufgabe: Schreiben Sie ein VBA-Programm: Teilen Sie die Zahl 123456 solange durch 2,5, bis das Ergebnis kleiner als 1 ist und geben Sie die Anzahl der Durchläufe aus sowie das Ergebnis aus.



Meine Ideen:
Dim i As Long,
Dim a As Double
i=123456
a=2,5
i=i/2,5
Loop while i<1

Ich weiß aber nicht wie ich das mit der Anzahl der Durchläufe noch machen soll. unglücklich
 
Auf diesen Beitrag antworten »
eulerscheZahl

Du brauchst eine weitere Variable, die du bei jedem Schleifendurchlauf um 1 erhöhst, also einen Schleifenzähler.
Und zum while solltest du dir nochmal die Syntax anschauen.
Auf diesen Beitrag antworten »
Susi89

Erstmal vielen Dank für die schnelle Antwort. smile

Vielleicht so:

Dim i, s As Long,
Dim a As Double
i=123456
a=2,5
s=0
Do
i=i/a
s=s+1
Loop while i<1

Sorry ich bin nicht so gut in programmieren. traurig
Auf diesen Beitrag antworten »
eulerscheZahl

while i<1 macht keinen Sinn, du sollst es machen, solange i größer gleich ist also 1.
Ob die Syntax so korrekt ist, weiß ich nicht (habe kein MS Office zum Testen). Bei der verlinken Seite sieht die Syntax etwas anders aus.
 
 
Neue Frage »
Antworten »


Verwandte Themen

Die Beliebtesten »
Die Größten »
Die Neuesten »