VF"100以内,能被5和7整除"-搜答案-搜狗做题网

store0tosume,sumofori=1to100ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"1~100偶数累加和=",sume

clears=0INPUT"请输入X的值："toxfora=1to100ifa%x=0s=s+aendifendfor"100以内能够被X整除的数之和是:",sreturn"

100以内,能同时被3和5整除的偶数有30,60,90,它们的和为30+60+90=180

1、计算50—100之间数的和.clears=0fori=50to100s=s+iendfor?"50—100之间数的和：",s2、计算200以内自然数奇数与偶数的平方和之差.cleara=0b=0f

settalkoffs=0fori=1to1000ifmod(i,13)0.and.mod(i,17)0s=s+iendifendfor?ssettalkonreturn

thisform.combo1.clearfori=1to100ifi%20loopendifthisform.combo1.additem(str(i))endfor其中combo1是你的列表框的名

N

clear?"100以内能被3整除的数有："i=1dowhilei

clearsettalkoffn=0fori=10to100ifi%7=0ori%9=0n=n+1endifendfor"10~100内能被7或9中的一个整除的整数的个数是",nsettalkonre

s=0FORn=1TO1000STEP2s=s+nendf或者说**或者s=0FORn=1TO1000IFINT(n/2)n/2s=s+nENDIFendf很多方法都可以嘛

clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s

clears=0input"x="toxfori=1to100ifmod(i,x)=0s=s+iendifendfor?"s=",sreturn

settalkoffs=0fori=1to50ifi%2=0.or.i%3=0s=s+ii&&显示能被2或3整除的数endifendfor"s=",s&&显示最后结论usenewtable6repl结

PrivateSubCommand1_Click()DimiAsInteger,sAsLongFori=1To100IfiMod3=0OriMod4=0Thens=s+iEndIfNextiPrint

s=0fori=1to50ifmod(i,3)=0andmod(i,5)=0s=s+iendfor再答：s=0fori=1to50ifmod(i,3)=0andmod(i,5)=0s=s+iendif

clearsettalkoffx=0y=0&&原来y=1dowhilenoteof()x=x+1docasecasemod(x,5)=0andmod(x,3)=0&&原来casemod(x,5)=0o

clears=0fori=1to100step2s=s+iendfor"100以内奇数之和是：",s

100以内能同时被3和7整除的最大奇数：63100以内能同时被3和7整除的最大偶数是：84

简单,程序如下:fori=1to100ifi%7=0endifendfor行了.

Fori=1To100If(Mod(i,7)=0OrMOd(i,11)=0)ANDi77?iendifEndFor**100以内能被7和11同时整队的只有77,如果不用这个,可以用(Mod(i,7)=