vb程序递归x的n次方

publiclongpower(intm,intn){if(nreturnm;elsereturnpower(m,n--)*m;}

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

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

PrivateSubCommand1_Click()DimnAsLong,xAsSingle,yAsSingle,y2AsSingle,sumAsSinglex=Val(InputBox("请输入一个

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

#include#include//note:只能处理n是正整数的情况floatf(floatm,intn){assert(n>=0);if(n==0)return1.0;if(n==1)return

第一个问题：为什么当X=2时函数等于0呢.因为在f(x)函数中你的t的类型为整形,它不能接收浮点数（即带小数点的数据）,如果是浮点数,则它会将该数截尾取整,即舍去小数点后的数据.因此当X=2时,函数返

PrivateSubForm_load()DimiAsLong,nasintegern=int(val(inputbox("输入Fibonacci数列的项数")))Fori=1TonPrintFibo

intfunc(intx,intn){inty;if(n

publicf(byvalnasinteger)aslongifn=1thenf=1elsef=f(n-1)+nendifendfunction

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

代码如下:OptionExplicitPrivateSubCommand1_Click()MsgBoxP(2,2)EndSubFunctionP(ByValnAsInteger,ByValxAsDou

程序已经调试过了,你看下吧,可以的话给个好评#include"iostream"usingnamespacestd;floatpower(floata,intn){if(n==1)returna;el

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

#includedoublepow(doublex,intn){if(1==n){returnx;}else{doubletemp=pow(x,n-1);return(x*temp);}}voidma

#include#includefloatmyfunction(intn,intx){if(0==n){return1;}elseif(1==n){returnx;}else{return((2*n-

DimsumAsLongDimiAsIntegerDimnAsLongn=InputBox("n=","输入")Fori=1Tonsum=sum+i^2NextiDebug.Printsum

if(n==1)\x05\x05return1;你可以改成n==0或者改成returnx取其中一种就可以了

#includedoublef(doublex,intn){if(n==1)returnx;else{doubled=1.0;inti;for(i=1;i

intgetpower(intx,inty){if(y==1)returnx;elsereturnx*getpower(x,y-1);}doublegetpower(doublex,inty){if(