Ich brauche eure Hilfe bezüglich einer Aufgabe in VBA und komme dort einfach nicht weiter.
Aufgabe lautet folgendermaßen: Es geht um eine Schnecke welche eine 4,5 Meter hohe Mauer hoch klettern soll, diese klettert jeden Tag 50 cm nach oben, in jeder Nacht rutscht sie 10% ihrer Gesamthöhe wieder nach unten. Wann bzw nach wievielen Tagen wäre sie oben?
kann mir jemand schnell helfen?
Hab das mal in VBA eingegeben
Option Explicit
Sub Schnnecke()
Dim HöheMauer As Double
Dim HöheSchnecke As Double
Dim AnzahlTage As Integer
HöheMauer = 4.5
HöheSchnecke = 0
AnzahlTage = 0
Do Until HöheSchnecke = 4.5
DoEvents
HöheSchnecke = Int((HöheSchnecke + 0.5) + 0.1)
Loop
End Sub
Vielen lieben dank euch schonmal
Aufgabe lautet folgendermaßen: Es geht um eine Schnecke welche eine 4,5 Meter hohe Mauer hoch klettern soll, diese klettert jeden Tag 50 cm nach oben, in jeder Nacht rutscht sie 10% ihrer Gesamthöhe wieder nach unten. Wann bzw nach wievielen Tagen wäre sie oben?
kann mir jemand schnell helfen?
Hab das mal in VBA eingegeben
Option Explicit
Sub Schnnecke()
Dim HöheMauer As Double
Dim HöheSchnecke As Double
Dim AnzahlTage As Integer
HöheMauer = 4.5
HöheSchnecke = 0
AnzahlTage = 0
Do Until HöheSchnecke = 4.5
DoEvents
HöheSchnecke = Int((HöheSchnecke + 0.5) + 0.1)
Loop
End Sub
Vielen lieben dank euch schonmal