|
Wie geht eine For-Next-Schleife mit den Fibonacci Zahlen ? Die ersten beiden Sub-Routinen sind welche die zu den Fibonacci führen:
Die erste ist eine wo ich in Spalte 1 die Zahlen 1-25 untereinander hinschreibe. Die Zweite ist eine wo ich In Spalte 2 die ersten 25 Quadratzahlen
hinschreibe. Und die dritte soll eine sein wo ich die ersten 25 Fibonaccizahlen in Spalte 3 untereinander schreiben soll. Da weiß ich nicht wie das geht.
Zu den Fibonacci Zahlen:
Die ersten beiden Zahlen sind 0 und dann 1. Die nächste Fibonacci-Zahl ergibt sich dann als Summe der beiden vorherigen. so ergibt sich:
0 , 1, 2 ,3 , 5 , 8 , 13 , ........
Wenn man die Zahlen 1-25 in Spalte 1 schreibt ist das so:
Sub ForNextZaehler()
Dim i As Integer
For i = 1 To 25
Cells(i, 1) = i
Next i
End Sub
Wenn man die ersten 25 Quadratzahlen in Spalte 2 schreibt geht das so:
Sub ForNextQuadratzahlen()
Dim i As Integer
For i = 1 To 25
Cells(i, 2) = i * i
Next i
End Sub
Aber wie geht das wenn man die Fibonaccizahlen macht ?
Möglicher Anfang: ???????????????????
Sub Fibonacci()
Dim i As Integer
For i = 1 To 25
Cells(i,3)= ???????????????????????????????????????????????????????????????????????????????
End Sub
Danke für Antworten die hilfreich sind.
|