VB单击窗体,输出斐波那契数列1,1,2,5,8,13.第20个数

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

#includevoidmain(){longa[42],i=2;a[0]=1;a[1]=1;for(;i

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

Dimfbn(19)AsInteger'定义斐波那契数列变量数组,共20个fbn(0)=1'给出前两个值fbn(1)=1Fori=2To19fbn(i)=fbn(i-2)+fbn(i-1)NextiP

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

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

#includevoidmain(){longf1=1,f2=1,i;for(i=0;i

#includeintmain(){\x09intn,i=1;\x09doublea=1,b=1;\x09scanf("%d",&n);\x09if(n==1)\x09\x09printf("1");

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

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

#includevoidfib(intn,intf0,intf1){intf;//当前项inti=0;if(n=2)printf("%8d,%8d",f0,f1);//f0,f1for(i=2;i

因为f[100]是一个很大的数字,int根本就表示不下来,应该用大数的加法来做的#include#includevoidsum(chara[],charb[]){\x09inti,n,k;\x09fo

矩阵乘法+快速求幂可以解决楼主的问题.详细的代码已经发给你了,去看看吧.

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

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

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