vb 斐波那契求sum=1 1 2 .... 144

因为你有一个i=i+1所以每次循环i的值分别是135791113151719一共循环10次sum值=100

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

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

所有奇数总和

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

PrivateSubForm_Load()DimiAsInteger,nAsLongDimkAsLongi=1:n=1DoWhilei

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

依据你的描述计算结果如图代码如下PrivateSubCommand1_Click()  Sum=0  Forn=1To30   &

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

'当i=1时,x=n/i=0/1'当i=2时,x=n/i=1/2'当i=3时,x=n/i=2/3'当i=4时,x=n/i=3/4'当i=5时,x=n/i=4/5再问：你的意思是先算x=n+1再算n=n

sum=0fori=1to13product=0forj=1toiproduct=product*jnextjsum=sum+jnexti再答：不好意思，Pad打错了，product=0应改为prod

SUM是一个对像,VALUE是这个对像的一个属性!比如说,我在窗体上建一个进度条控件,那么SUM.VALUE=0就是说让这个进度条现在的状态显示为0

Functionsum(kAsLong,nAsLong)Fori=1Tonsum=sum+i^kNextiEndFunction

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

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

functionsum(n)fori=1tona=a+inextsum=aendfunction

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton

楼主是不是在写这个函数的时候经常不按加法去做呢?那是因为javascript没有把参数按类型分类,即,字符和数字是分不清的.只有你把某个参数乘以数字时,才会默认为数字,比如sum*1.所以,你只需要写