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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 12:56:04
斐波那契数列如何用VB求和

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

斐波那契数列如何用VB求和
斐波那契数列的发明者,是意大利数学家列昂纳多·斐波那契.
斐波那契数列指的是这样一个数列: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