裴波拉契数列的前30项 vb

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

PrivateFunctionGetNum(ByValiCountAsLong)DimiAsLongReDima(iCount)AsLonga(1)=1:a(2)=2:a(3)=3Fori=4ToiC

PrivateSubCommand1_Click()DimnAsInteger,阶乘项AsLong,阶乘和AsLongDon=Val(InputBox("请输入阶乘的项数（N≤8）"))LoopUnt

OptionExplicitFunctionf(nAsInteger)AsLongIfn=1Thenf=1ElseIfn=2Thenf=1Elsef=f(n-2)+f(n-1)EndIfEndFunc

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

PrivateSubCommand1_Click()Dima(1To20)AsIntegerFori=1To20Ifi=1Ori=2Thena(i)=1Elsea(i)=a(i-1)+a(i-2)En

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

DimnAsIntegerDimmAsIntegerDimiAsIntegerDimjAsIntegerDima(30)AsInteger'确定数组的范围（）里的数即为最大可储存数+1PrivateS

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

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

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

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

PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele

/>'第一题privatesubcommand1_click()dimf(1to20)asintegerf(1)=1f(2)=1printf(1);f(2);fori=3to20f(i)=f(i-1)

 Private Sub Command1_Click()Dim F(11), i As LongF(0) = 

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

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

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

PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele

1