 Dividier-Schleife |
Susi89
unregistriert
 |
|
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. 
|
|
02.02.2016 15:24 |
|
|
|
|
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.
__________________
Syntax Highlighting fürs Board (Link)
|
|
|
02.02.2016 16:11 |
|
|
Susi89
unregistriert
|
|
Erstmal vielen Dank für die schnelle Antwort. 
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. 
|
|
|
02.02.2016 19:13 |
|
|
|
|
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.
__________________
Syntax Highlighting fürs Board (Link)
|
|
|
03.02.2016 18:02 |
|
|
|
