vbfor循环求1到100之间能被3整除的数的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 21:49:06
下面的程序调试通过: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大概是这样.