vb实验偶数平方和

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

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

lz,这是不可能找到的,可以证明设两个奇数分别为2m+1,2n+1设偶数为2a,且m,n,a都是整数那么如果成立,有(2m+1)^2+(2n+1)^2=(2a)^24m^2+4n^2+4m+4n+2=

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

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

DimiasInteger,jasInteger,oasIntegerj=0o=0Fori=1To100Step2j=j+io=o+(i+1)NextDebug.print"100以内的奇数和:"&j

相邻两个偶数的平方和等于100,那么这两个偶数是6和8

PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1j=j+1Ifj=11ThenExitForIfList1.List(i)NextEndSubPr

50^2+52^2+...+300^2=4(25^2+26^2+...+150^2)=4[(1^2+2^2+...+150^2)-(1^2+2^2+...+24^2)]=4[150*(150+1)*(

证明过程如下:1^2+2^2+...+n^2=n(n+1)(2n+1)/61^2+2^2+...+(2n)^2=2n(2n+1)(4n+1)/6=n(2n+1)(4n+1)/3连续偶数平方和：2^2+

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

50^2-49^2=9948^2-47^2=952^2-1^2=3前50个偶数的平方和与前50个奇数的平方和的差=3+7+11+...+95+99=1275

在此创建一个文本框,按钮,标签都是原先默认名不要改PrivateFunctiona(cAsInteger)Ifc>=0AndcMod2=0ThenLabel1.Caption=Text1.Text&"

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

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

Functiona(n)DimmAsLongm=n\2a=m*(m+1)EndFunction

dimnaslong'n是被判断的数ifn\2=0then'n=偶数else'n=奇数endif

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

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

PrivateSubCommand1_Click()Dimli_iAsIntegerli_i=Val(Text1.Text)Ifli_i