杭州交通信息网赢乐国际娱乐:递归排序算出1，1，2，3，5，8……的第30个数？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 03:12:37
用程序写出来？
Private Sub Command1_Click()
Dim f(15) As Integer
List1.Clear
f(1)=1:f(2)=1
p=Format("Fib("& 1 &"):","!@@@@@@@@@@@@@@")& Format(f(1),"########")
List1.AddItem p,0
For i=3 To 15
f(i)=f(i-1)+f(i-2)
p=Format("Fib("& i &"):","!@@@@@@@@@@@@@@")& Format(f(i),"########")
List1.AddItem p,i-1
Next
End Sub
菲薄那切数列
也是著名的 洋灰三角！！！
任意一个数都等于上上一个数乘2+上上上一个数。
第30个数就等于第28个数乘2加上第27个数第28个数就等于第26个数乘2加上第25个数依次往前，等于7668
？
切割！
bu
第三个数为前两项之和,自己拿张纸推一下
应该是7668