VB求fibonacci数列的前40个数

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

PrivateSubForm_Click()Dima(1To40)AsLongFori=1To40Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-2)+a(i-1)EndIfPrin

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

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

#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

#includeintmain(void){unsignedintf1=1,f2=1,f;intn;inti;printf("输入n的值：");scanf("%d",&n);printf("%12u%

写一函数intFibonacci(intn){if(n==1||n==2){return1;}returnFibonacci(n-1)+Fibonacci(n-2);}

回答过了啊……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

我给你代码：#include <stdio.h>#include <stdlib.h>#define N 47int fibo

#includeusingnamespacestd;intfibonacci(inta){inttem;intf1=1;intf2=1;while(f2

G(n)=G(n-1)+G(n-2)-1G(n+1)=G(n)+G(n-1)-1G(n+1)-G(n)=(G(n)-G(n-1))+(G(n-1)-G(n-2))令F(n+1)=G(n+1)-G(n)

publicclassFibonacci1{publicstaticlongfib(intn){longf1=1,f2=1;longm=0;if(n

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

#include<stdio.h>void main(){    int m;    w

用c++编写的fibonacci数列,通向公式如下：F1=F2=1；F(n)=F(n-1)+F(n-2)(n>=3);相关程序如下：#include#includevoidmain(){longint