vb中计算1-10的平方和

你一点都不做?做一做大家给你修改才是正途

dimaasintegerdimbasintegerdimnasintegerdims1asintegerdims2asintegerforn=atobifos(n)=truethens1=s1+n^

Fori=0To100IfiMod2=0Thenn=i^2sum=sum+nEndIfNEXT放在IF内就是只对偶数做平方的和,否则不做和.

以下代码可以实现1到N的偶数平方和与奇数平方和之差'按钮1代码:PrivateSubCommand1_Click()dimmin,maxasintegermin=1'设定参与计算的最小值max=50'

C语言的.#include"stdio.h"main(){floatn=0;floatsum=0;for(;n

话说楼上的已经很好了,还要在做什么?算了,给你个实例吧,添加一个command按钮,输入以下代码OptionExplicitPrivateSubCommand1_Click()DimresultAsL

PrivateSubfounction()DimiAsIntegerDimjAsIntegerDimkAsLongDimResAsDoubleRes=1Fori=1To10k=1Forj=iTo1St

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

DimsignAsInteger,aAsLong,piAsDoublesign=-1Fori=1To100000a=2*i-1sign=-1*signpi=pi+(1/a)*signNextpi=pi

1、正确的循环次数应该是：X=0ForI=aTobStepcX=X+1NextIX是循环总次数2、我认为你的：“循环总次数=(b-a)\c+1”应该是的,例如：ForI=1To10Step3的循环总次

PrivateSubCommand1_Click()Dims&,i&i=2WhileiMod115OriMod173‘先找到符合条件的第一个ii=i+2WendFori=iTo5000Step374’

PrivateFunctionCalculate(ByValInt_numAsString)AsInteger'Int_num设置为String是为了Len(Int_num)计算正确Calculate

Functionsum(n)AsDoublesum=0Fori=1TonIfiMod2=0Thensum=sum+i*iNextEndFunction

Functioncalc()dimaasintegerdimbaslongfora=0to100step2b=b+a^2nextacalc=bendfunction这个算法比你的优化一些,如果你想用自

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

Sub aa()'用9行数据做说明,看是不是你要的东西；Dim x As IntegerFor x = 2 To

自已写个累加

Dima(14)AsIntegerDimb(10)AsIntegerPrivateSubCommand1_Click()Fori=1To14a(i)=Int(100*Rnd())‘这里产生100以内的

楼上的一定会溢出出错,999^2>整数最大值32767dimiaslongdimsumaslongfori=37to1000step37sum=sum+i*i'尽量用乘法代替^运算,速度快一些next

平方和公式n(n+1)(2n+1)/6即1^2+2^2+3^2+…+n^2=n(n+1)(2n+1)/6