VB计算斐波那契数列的第n项的值

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

*求斐波那契数列1,1,2,3,5,8,13,21,34,…的前30项的和.该数列从第3项开始每项等于前两项之和.3524577SETTALkOFFCLEAS=2F1=1F2=1I=2DOWHILEI

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

(*基本算法*)vara,b,t,n:longint;beginreadln(n);a:=1;fori:=1tondobegint:=a;a:=a+b;b:=t;end;writeln(a);end.

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

第n个元素等于第n-1加n-2个元素调用递归实现啊

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

斐波那契数列的递推公式对于余数也成立,也即F(n)mod8=(F(n-1)mod8+F(n-2)mod8)mod8,如果F(1)=1,F(2)=1,那么F(3)=2,F(4)=3,F(5)=5,F(6

PrivateSubForm_Load()Rem在这里定义一个inti来控制数字的循环变化,定义intNumber是用来输入要求第几个数Diminti,intNumberAsInteger'lngFi

#include"stdio.h"#include"math.h"intmain(void){inti,m,n;intrepeat,ri;longf;longfib(intn);inta,b,c;sc

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

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

#includeintfibo(intn){if(nreturn1;elsereturnfibo(n-1)+fibo(n-2);}intmain(){intn;scanf("%d",&n);print

F(n)=(1/√5)*{[(1+√5)/2]^(n+1)-[(1-√5)/2]^(n+1)}（√5表示根号5）.

'计算按钮事件编辑框名默认Dimarr(),rd()AsInteger'定义存放数列的数组Dimi,a,b,n,sumAsIntegera=1b=1n=Val(Text1.Text)'输入求数列的项数

f(x)=x/(1-x-x^2)在x=0的展开为f(x)=anx^n其中an=(1/sqrt(5))((r+)^n-(r-)^n)(r+)=(1+sqrt(5))/2(r-)=(1-sqrt(5))/

先写两个数列.PublicSubaa()DimabAsStringDimi,jAsIntegerDima,bAsInteger'素数序列Fori=1To1000Forj=1ToiIfiModj=0An

最简单的高精度定义三个数组,加加,赋值现在学c已经忘记怎么做了

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

递归很简单：描述如下f（n）if(n==1||n==2)return1;returnf(n-1)+f(n-2);非递归用循环就可以做到：a=b=1;for(i=3;i