VB输出Fibonacci数列的前20项,要求4项一行输出,请使用数组完成

斐波那契数列通项公式：斐波那契数列指的是这样一个数列：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

PrivateSubCommand1_Click()Dima(1To20)AsIntegerFori=1To20Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-1)+a(i-2)En

#includeintmain(){intf1=1,f2=1;inti;for(i=1;i

把printf("%-12d%-12d",f1,f2);改为printf("%-12ld%-12ld",f1,f2);就行了,注意输入输出的格式!你定义的是long型,不是int型

#includeusingnamespacestd;intmain(){inta,b,i;a=1;print("%d\n",a);for(i=0;i

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

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

这是数学题?!确定不是程序设计...1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,搞定,希望没算错...其实斐波

著名的Fibonacci数列,定义如下f(1)=1,f(2)=1,f(n)=f(n-1)+f(n-2),n>2用文字来说,就是斐波那契数列由0和1开始,之后的斐波那契系数就由之前的两数相加.首几个斐波

#includeusingnamespacestd;intmain(){intf[11]={0,1,1};inti,j,n;for(i=3;i{f[i]=f[i-1]+f[i-2];i

#includeusingnamespacestd;intmain(){ints=1,a=1,t=0,i=0;cout再问：改完后问什么提示我cannotopendebugexeforwriting谢

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

#includevoidmain(){longf1=1,f2=1,i;for(i=0;i

回答过了啊……Dimf1,f2,f3AsLongDimi,jAsIntegerf1=1f2=1j=3        &n

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

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

vari,j,k,n:integer;begini:=1;j:=1;write(i,',',j);n:=2;repeatk:=i+j;i:=j;j:=k;write(',',j);inc(n);unt

#includevoidmain(){inta[20];int*p=a;*p=0;*(p+1)=1;for(inti=2;i

fibonacci数列：1123581321345589...即f(1)=f(2)=1f(n)=f(n-1)+f(n-2)n>2首项应该是1,看来是wmjdhr记错了