用VB求解斐波那契数列的前一百项

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

斐波那契数列前13项为1,1,2,3,5,8,13,21,34,55,89,144,2331+1+2+3+5+8+13+21+34+55+89+144+233=609

267914295,用EXCEL很简单的

publicclassFibonacci{publicstaticvoidmain(Stringargs[]){inti=1,j=1;for(intn=1;n

我知道java和c/c++的做法,需要的话说一句,pascal的不会

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

n=inputbox("输入项数",10)a=0b=1fori=2tonc=a+ba=bb=cnextmsgbox"第"&n&"项="&c

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

VB程序斐波那契数列代码ma,b,ciasintegera=1b=1fori=3to10c=aba=bb=cdebug.printcnexti

斐波那契数列的发明者,是意大利数学家列昂纳多·斐波那契.斐波那契数列指的是这样一个数列：1、1、2、3、5、8、13、21、……下面是前1000项斐波那契数列的和的VB代码:PrivateSubCom

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

OptionExplicit'产生斐波那契数列并保存到D:\fb.txtPrivateSubCommand1_Click()DimFB(1To15)AsIntegerDimiAsInteger'产生斐

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

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

1123581321345589143232375607……

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

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

PrivateSubCommand1_Click()DimmAsLongDimnAsIntegern=Val(Text1.Text)m=fabn(n)PrintmEndSubPrivateFuncti

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

其他递归经典问题阶乘100的求和打印杨辉三角计算组合数八皇后问题（递归+回朔）.斐波那契数列的非递归求解#includeintmain(){inti_1=1,i_2=1,i,n,t;printf("输