vb有一个数列,其前三项分别为

floatfunction(intn){floatave,a[100],sum=0;inti;if(n==1)return1;elseif(n==2)return1.5;elseif

斐波那契数列第100项为354224848179261915075前100项和为927372692193078999175计算结果如下：.098.135301852344706746049S098=3

#include"stdio.h"intmain(){intd1,d2,d3,t,n;d1=1;d2=2;d3=3;n=3;do{t=(d1+d2+d3)/2;d1=d2;d2=d3;d3=t;n=n

functionsum(nasinteger)dima(30)asintegerdimsasintegers=0a(1)=0a(2)=0a(3)=1fori=4to30a(i)=a(i-1)+a(i-

169

#include"math.h"main(){inta[30],sum,i=3;a[0]=0;a[1]=0;a[2]=1;sum=a[0]+a[1]+a[2];while(i

Dima(35)AsLongDimiAsInteger=0,jAsInteger=0Fori=0To35a(i)=Nothing'''''''''''''''''''''''''''初始化Nexta(

程序设计的本意N共有10个数值运算吧,而FOR判定条件为K

#includemain(){floata=1,b=2,c=3,d;intn=4;d=a+b+c;while(d

vara:array[1..40]oflongint;i:integer;sum:longint;begina[1]:=0;a[2]:=0;a[3]:=1;sum:=1;fori:=4to30dobe

这种计算逻辑性、顺序性很强的.PrivateSubForm_Click()DimaAsLong,bAsLong,cAsLonga=0:b=1:c=1Printa;b;cFori=0To36Select

Dima1,a2,a3,a4,iAsIntegera1=3:a2=4:a3=5fori=4to26a4=a1+a2+a3a1=a2a2=a3a3=a4next输出a4即可

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

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

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

这一行：DoWhilex>a(p)Andp

PrivateSubCommand1_Click()Dima(30)asIntegerIfOption1.Value=TrueThena(1)=1a(2)=1Fori=3To30a(i)=a(i-1)

设第N(N>3)项数值为x,则x=（（N-1）+（N-2）+（N-3））/2,令x>1200,则（（N-1）+（N-2）+（N-3））/2〉1200,N〉802,故该数列从第803项开始,其数值超过1

大概思路如下a=1,b=2,c=3,i=4;start:a=a+b+c,ifa>1200thenend;i=i+1;b=b+c+a;ifb>1200thenend;i=i+1;c=c+a+b;ifc>

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