求VB编程代码(For循环).题目:求Fibonacci数列:1,1,2,3,5,8,…的前40个数

求VB编程代码(For循环).题目:求Fibonacci数列:1,1,2,3,5,8,…的前40个数
即:F1=1 (n=1), F2=l (n=2),Fn=F(n-l) F(n-2) (n>=3)谢谢
wojiaosm 1年前 已收到1个回答 举报
赞

ba6480 春芽

共回答了18个问题采纳率：94.4% 举报

Private Sub Form_Click()
Dim a(1 To 40) As Long
For i = 1 To 40
If i = 1 Or i = 2 Then
a(i) = 1
Else
a(i) = a(i - 2) + a(i - 1)
End If
Print a(i); Tab;
If i Mod 5 = 0 Then Print
Next i
End Su

1年前

1
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.503 s. - webmaster@yulucn.com