如何生成斐波那契数列？答案

【问题标题】：How to generate Fibonacci series?如何生成斐波那契数列？
【发布时间】：2013-12-31 13:11:54
【问题描述】：

我是编程和处理visual basic 2010概念的初学者，以生成以下斐波那契数列输出，该输出将通过添加两个连续数字来获得下一个数字

我已经通过创建像下面这样的变量来尝试过

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim a As Integer = 0
    Dim b As Integer = 1
    Dim fib As Integer = 0

    Do
      fib = a + b
      a = b
      b = fib
      Label1.Text = Label1.Text + fib.ToString & ControlChars.NewLine
    Loop While fib < 55
  End Sub
End Class

【问题讨论】：

你试过什么？看看使用循环和一个变量来存储最后操作的数字。
首先，什么是斐波那契方程？一旦你把它写下来，编写代码就不会那么难了。
你建议我很好！谢谢我会详细研究一下。谢谢。
你试过下面的答案了吗？

标签： vb.net

【解决方案1】：

这应该可以工作

 Dim a As Integer = 0
    Dim b As Integer = 1
    Dim fib As Integer 

    Do
        Label1.Text += a.ToString & ControlChars.NewLine
        fib = a + b
        a = b
        b = fib
    Loop While a <= 55

【讨论】：

为了更有助于理解和使用它的社区目的。但你的回答也很有帮助
GUI 界面并不能使其成为更好的答案。不过我很高兴能帮上忙。
@OrvillePatterson 接受的答案允许计算 Fib(n)，而这只计算 Fib(55)。
现在我包含并建议了我尝试过的内容。请给我投票一次

【解决方案2】：

Private Sub Command1_Click()
Dim x, g, n, i, sum As Integer
n = Val(Text1.Text)
x = 0
y = 1
Print x
Print y
For i = 3 To n
sum = x + y
Print sum
x = y
y = sum
y = sum
Next i
End Sub

【讨论】：

请你帮我在这个建议的问题上投票。

【解决方案3】：

解决办法：

Dim num1 As Integer = 1
Dim num2 As Integer = 1
Dim aux As Integer

Console.Write(num1)
Console.Write(", ")
Console.Write(num2)
Console.Write(", ")

While num1 < 100
   aux = num1 + num2
   Console.Write(aux)
   Console.Write(", ")
   num1 = num2
   num2 = aux
End While

这个打印斐波那契数列直到数字 100

希望对你有帮助！

【讨论】：