VB程序 用递归发求斐波那契数列1 2 3....

#includeunsignedintFibonacci(intn);intmain(void){inti;for(i=1;i

添加一个文本框输入前N项的N值,再添加一个命令按钮即可PrivateFunctionF(NAsLong)AsLongIfN>2ThenF=F(N-1)+F(N-2)ElseF=1EndIfEndFun

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

他的代码return1,是指序列从1开始,1,1,2,3,从0开始的话,改成if(k==0)return0;elseif(k==1)return1;elsereturnfib(k-1)+fib(k-2

因为用了很没有效率的递归,所以出结果有点慢#includef(int);main(){inti,s=0;for(i=1;i

PrivateFunctionF(nAsLong)AsLongIfn>2ThenF=F(n-1)+F(n-2)ElseF=1EndIfEndFunctionPrivateSubCommand1_Cli

/*以下内容是在VC6.0环境下编译运行成功的,现在一般学习C语言均使用该环境*/#includeintFibonacci(intn){intm;if(n==1||n==2)m=1;elsem=Fib

PrivateFunctionF(nAsLong)AsLongIfn>2ThenF=F(n-1)+F(n-2)ElseF=1EndIfEndFunctionPrivateSubCommand1_Cli

n=inputbox("输入项数",10)a=0b=1fori=2tonc=a+ba=bb=cnextmsgbox"第"&n&"项="&c

OptionExplicitDimFileNameAsString'文件名变量PrivateSubForm_Load()DimFilePathAsStringFilePath=App.PathIfRi

VB程序斐波那契数列代码ma,b,ciasintegera=1b=1fori=3to10c=aba=bb=cdebug.printcnexti

#includeusingnamespacestd;intmain(){intn,a=1,b=2;cout再问：^那这个是什么符号，这个没学过，有用temp做的么？再答：是位运算的异或符号；也可以用t

functionfibonacci(n:integer):integerbeginif(n=0)thenResult:=0;if(n=1)thenResult:=1;if(n>1)thenResult

#include"stdio.h"intmain(){inta,b,c,i;a=1;b=1;printf("%d%d",a,b);for(i=3;i

publicclassFibonacci{\x09publicstaticvoidmain(Stringargs[]){intn,fn;//n为第n项,fn为第n项的值java.util.Scanne

publicintfbnq(intn){if(n==1||n==2){return1;}else{returnfbnq(n-1)+fbnq(n-2);}}输入内容已经达到长度限制还能输入9999字再问

#includefib(intn){if(n==0)return(0);elseif(n==1)return(1);elsereturn(fib(n-1)+fib(n-2));}main(){intn

if(n=1||n=2)改成if(n==1||n==2)

递归法和循环法分别如下：PrivateFunctionFibonacci1(nAsInteger)AsLongDimaAsInteger,bAsIntegerIfn=1Orn=2ThenFibonac

#includeintFibonacci(intn){if(n==1||n==2)//递归结束的条件,求前两项return1;elsereturnFibonacci(n-1)+Fibonacci(n-