Question

用VB得到斐波那契数列

希望有简单的代码可以得到一定范围内的斐波那契数列。方法越多越好。谢谢！

若以下回答无法解决问题，邀请你更新回答

Answer 1

Dim a As Single, b As Single, c As Single方法一：Private Sub Command1_Click()
a = 1
b = 0
c = 0
Do While b < Val(Text1.Text)
c = b
b = b + a
a = c
If b < Val(Text1.Text) Then Print b
Loop
End Sub 方法二：Private Sub Command2_Click()
For a = 1 To Fix(Val(Text1.Text))
If 1 / (5 ^ 0.5) * (((1 + (5 ^ 0.5)) / 2) ^ a - ((1 - (5 ^ 0.5)) / 2) ^ a) < Val(Text1.Text) Then Print 1 / (5 ^ 0.5) * (((1 + (5 ^ 0.5)) / 2) ^ a - ((1 - (5 ^ 0.5)) / 2) ^ a)
Next a
End Sub 界面上画一个text和两个command就可以了。

Answer 2

代码： Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(InputBox("请输入斐波那契数列的项数:"))
ReDim a(n)
a(0) = 1
a(1) = 1
For i = 2 To n - 1
a(i) = a(i - 1) + a(i - 2)
Next i
Print "斐波那契数列的前" + Str(n) + "项是:"
For i = 0 To n - 1
Print a(i);
If i Mod 5 = 0 Then
Print
End If
Next i
End Sub
图：