分别求1到100中偶数的平方和,奇数的立方和

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

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

while那写错了,应该是while(n=102.而初始化时,n值为2,不可能>=102的,所以while里面的计算为false,就不再执行while循环了

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

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

#include#include#includeintmain(){inta,b,c;srand((unsigned)time(0));a=rand()%100+1;b=rand()%100+1;c=

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

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

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+

main(){ints=0,a=2;while(1){s+=a*a;if(a>=100)break;a=a+2;}printf("%d",s);}//如果有问题就是S的值可能要LONG吧,如果是LON

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

clears1=0s2=0fori=1to100ifi%2=0s1=s1+i^3elses2=s2+i^2endifendfor"1-100以内的奇数平方和:",s2"1-100以内的偶数立方和:",

奇偶都可以：1n/6*(n-1)*(n-2)

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

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

设S=2+4+6+8+…+50则S=50+48+46+44+…+2相加：2S=52+52+52+52+…+52=52*25所以：S=26*25=650点评：使用倒序相加法可以这么算,如果是高中生,可以

选B通过规律看,每相邻的整数的平方差为首相为3,公差为4的等差数列,项数为50项,故Sn=n[a1+(n+1)d]/2=50*[3+(3+49*4)]/2=5050

因为公式：1²＋2²＋...+n²=n(n+1)(2n+1)/6所以1²＋2²＋.+100²=100×101×201÷6=338350再问：

inti=1,a=0,b=0;for(i