vb用数组求fibonacci数列前20个数

斐波那契数列通项公式：斐波那契数列指的是这样一个数列：1、1、2、3、5、8、13、21、……这个数列从第三项开始,每一项都等于前两项之和.#includeintmain(){inta[20]={1,

dimf()asdoublen=inputbox("in","NO.")redimf(n)asdoublef(1)=1f(2)=1fori=3tonf(i)=f(i-1)+f(i-2)nextprin

什么时候要?再问：呵呵，什么时候这个小问题解决了就不要了啊!·~~~~~~~~~~~~~~啊~开玩笑的啊，呵呵，对这个程序，当n一定时（比如20,30,40等等）我都可以写出来，但是.......当n

#includevoidmain(){inta[21];a[0]=0;a[1]=1;for(inti=2;i

#includeintmain(){inti,k,j,l,sum=0;i=1;k=0;for(j=0;j

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

OptionExplicitDimf(40)AsLongPrivateSubCommand1_Click()DimiAsByteDimsAsLongf(1)=1f(2)=1s=2Print"No1:"

#includeusingnamespacestd;intmain(void){\x09intn,i,*fib;\x09cin>>n;\x09if(n==1||n==2)\x09\x09cout

#include#defineN20//N可配,可改成前任意项intmain(void){intFibo[N];Fibo[0]=1;Fibo[1]=2;for(inti=2;i

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

大于4000的最小项41815000之内的项数01123581321345589144233377610987159725844181Pressanykeytocontinue

if(i%5==0)printf(“\n”);表示当i能被5整除时,输出换行.即当i=0,5,10,15时换行,其目的是输出5个数换行.

#include#include#defineN200longintF[N];voidFi(intn);longintSum(intn);voidmain(){intn;longintsum;prin

在另一个帖子回答了

用递归多好啊,我用的递归,你参考一下!#includeusingnamespacestd;intfib(intn){if(n==0||n==1)return1;returnfib(n-1)+fib(n

for(i=0;i

楼上的程序会慢死人的.给一个非递归实现.functionFibonacci(byvalnasLong)asLongdiml1aslong,l2aslong,l3aslongl1=1l2=1ifn

编程首先计算Fibonacci数列1,1,2,3,5,8,13,21,.的前n项（n不超过40）存入一维整型数组f中,再按%12d的格式输出每项的值,每6项换一行.说明：（1）输入数列项n,在scan

#includeusingnamespacestd;intmain(){\x09inta[1000001];\x09intn,i;\x09a[1]=a[2]=1;\x09cin>>n;\x09for(

for(i=2;i<20;i++){    f[i]=f[i-1]+f[i-2];}再问：怎么显示这个啊，我是新手再答：当然显示这个，程序实际上是把结果输