Die Zahlen in der folgenden Folge werden die Fibonacci-Zahlen genannt. 0, 1, 1, 2, 3, 5, 8, 13, ….. Schreiben Sie ein Programm mit der Do… While-Schleife zum Berechnen und Drucken der ersten 100 Fibonacci-Zahlen?

Dies ist eine standardmäßige, gute Programmierübung; hauptsächlich, weil die größeren Zahlen einige Finagling erfordern, um sichtbar zu sein. Damit habe ich nichts gemacht; Aber Sie sollten in der Lage sein zu sehen, wohin Sie gehen müssen, von dem, was ich hier habe.

Ich habe eine Lösung in Visual Basic für Excel implementiert:

Sub main()
    Dim a As Double, b As Double, c As Integer, x As Integer, limit As Integer, y As Double
    a = 1: B = 1: Can' t = 2: Limit = 100: Nachricht = "Serie: " & a & ", " & b
    Do While (kann nicht <= limitieren)
  y = a + b: A = b: B = y: Nachricht = Nachricht & ", " & y: Can't = can't + 1
  If (MsgBox(Message, 1, "Fibonacci Series!") = 2) Then can' t = Limit + 1
    Loop
End Sub

Wenn Sie ein neues Modul einfügen, diesen Code kopieren und über das Standard-Sub Main() einfügen, wird die Fibonacci-Reihe iterativ angezeigt, die wächst, wenn Sie auf die Schaltfläche OK klicken.

Bitte beachten Sie - unabhängig von der Implementierung müssen Sie die Tatsache berücksichtigen, dass Werteblöcke nach einem bestimmten Punkt nicht angezeigt werden; Dies liegt daran, dass ein maximal darstellbarer Wert vorhanden ist, der adressiert werden muss.
In Microsoft Excel 2003 zum Beispiel denke ich, dass das Maximum eine 11-stellige Zahl ist. Wenn Sie beispielsweise eine neue Arbeitsmappe öffnen und die Zahl 99.999.999.999 eingeben, werden alle Zahlen angezeigt. Wenn Sie eine hinzufügen, ist die sichtbare Zahl 1E+11, also 1 x 10 ^ 11; mit anderen Worten, die Zahl ist zu groß, um dargestellt zu werden. Die Fibonacci-Reihe erreicht diese Grenze bei ungefähr der fünfundfünfzigsten Iteration. Ob die obige Implementierung für Sie funktioniert oder nicht, hängt also von Ihrem Ziel ab.

~ raus