Vb编写求Fibonacci数列1,1,2,3,5,8,--第N项的递归过程

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

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

}\x09printf("\n\n");\x09for(i=0;i

FunctionMax(xAsInteger,yAsInteger,zAsInteger)AsIntegerMax=IIf(x>=y,x,y)Max=IIf(Max>=z,Max,z)EndFunct

iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

Dimi,j,sAsIntegerFori=1To500s=0Forj=1Toi\2'i\2表示整除结果IfiModj=0Thens=s+jNextjIfi=sThenPrinti&"是完数"Next

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

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

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

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

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

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

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

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

请楼主参考采纳intfun(intt){inti;intcurrent=0;for(i=1;totalt)break;current+=i;}returncurrent;}

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

1.intf1=0,f2=1,f3;2.returnf3;继续写：f3=f1+f2;f2=f3;f1=f2;

递归法求作Fibonacci数列写生产fibonacci数列前20项;11235813.