求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)谢谢
其他人气:330 ℃时间:2020-03-22 03:25:15
优质解答
Private Sub Form_Click()Dim a(1 To 40) As LongFor i = 1 To 40If i = 1 Or i = 2 Thena(i) = 1Elsea(i) = a(i - 2) + a(i - 1)End IfPrint a(i); Tab;If i Mod 5 = 0 Then PrintNext iEnd Sub
我来回答
类似推荐
请使用1024x768 IE6.0或更高版本浏览器浏览本站点,以保证最佳阅读效果。本页提供作业小助手,一起搜作业以及作业好帮手最新版!
版权所有 CopyRight © 2012-2024 作业小助手 All Rights Reserved. 手机版