vbfor循环求1到100之间能被3整除的数的个数-搜答案-拍题作业网

cv

下面的程序调试通过：s=""fori=1to99step2s=s&i&""nextmsgboxs再问：奇数和偶数都可以求出吗再答：你运行了没有，看见效果了没有，是不是你要的奇数？如果这是你要的效果，我

#include#include#includeusingnamespacestd;intmain(){inti=1,sum=0;while(i

////////////////////下面是whileintsum=0;int_i=0;while(_i

dimheaslong,naslonghe=0n=1dohe=he+nn=n+1loopuntilln>100msgbox"累加和是："&he‘以上是VB的写法.

#includeusingnamesapcestd;voidmain(){inthe=0;for(inti=1;i

intn=0;intsum=0;while(n

intn=1;intsum=0do{if(n%3==0)sum+=n;n++;}while(n

Next循环SUM=0FORi=2TO100STEP2SUM=SUM+I;NEXTIwhile循环SUM=0i=2whilei

#includeusingnamespacestd;intmain(){intsum=0;for(inti=1;i

sum1=0;>>sum2=0;>>fori=1:100if(mod(i,2)==1)sum1=sum1+i;elsesum2=sum2+i;endend>>[sum1sum2]ans=2500255

intjishuhe=0;intoushuhe=0;for(inti=1;i

n=1he=0dowihiln

intn=1,sum=0;while(n

inti,sum;i=1,sum=0;while(i

先分解质因数,形式如:n=a^p*b^q*c^r;因数个数有公式:m=(p+1)(q+1)(r+1);如32=2^5它有5+1=6个因数.再比如:24=2^3*3它有(3+1)*(1+1)=8个因数.

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

int sum = 0;for (int i = 0; i != 100; i++){&n

PrivateSubForm_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimSAsIntegerS=2（循环无法找出2因为2是唯一一个能被自己整除的

S=0i=1DOIFi\3i/3THENS=S+ii=i+1ENDIFLOOPUNTILi>100END用QB大概是这样.