Question

斐波那契数列如何用VB求和

Answer 1

斐波那契数列的发明者，是意大利数学家列昂纳多·斐波那契.
斐波那契数列指的是这样一个数列：1、1、2、3、5、8、13、21、……
下面是前1000项斐波那契数列的和的VB代码:
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim S As Long
Dim i As Integer
a = 1
b = 1
S = 2
For i = 3 To 1000
c = a + b
S = S + c
a = b
b = c
Next i
Print S
End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer, s As Integer
n = InputBox("请输入项数n:")
For i = 1 To n
s = s + fab(i)
Next i
Print "斐波那契数列前" & n & "项之和为：" & s
End Sub

Private Function fab(n As Integer) As Double
If n = 1 Or n = 2 Then
fab = 1
Else
fab = fab(n - 2) + fab(n - 1)
End If
End Function

Answer 3

斐波那契数列是什么？