大师作文网vf 求1~500之间能同时被3和5整除的数的和
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/18 15:02:54
1、计算50—100之间数的和.clears=0fori=50to100s=s+iendfor?"50—100之间数的和：",s2、计算200以内自然数奇数与偶数的平方和之差.cleara=0b=0f
clears=0t=0fori=1to100step1ifi%5=0thens=s+it=t+1endifnexti?s,t
clears=0fori=1to500ifi%6=0andi%7=0s=s+iendifendfor"1-500既能被6整除又能被7整除的数之和是：",s
clearfori=500to1000ifi%26=0?iendifendfo
X一直不变,不就成死循环了吗.
clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s
clears=0fori=10to1000ifmod(i,7)=0andmod(i,3)0s=s+iendifendfor"10~1000之间能被7整除但不能被3整除的数据和是：",sreturn结果
clears=0fori=2to100step2s=s+iendfo
clears=0fori=1to100ifi%30ifi%2=1s=s+iendifendifendfor"1至100之间非3的倍数的所有奇数之和为：",s
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
cleari=0dowhilei
datasegmentvaldb100dup(0)codesegmentassumecs:codeds:datastart:movax,datamovds,axleasi,valmovbx,1movc
clearsettalkoffx=0y=0&&原来y=1dowhilenoteof()x=x+1docasecasemod(x,5)=0andmod(x,3)=0&&原来casemod(x,5)=0o
什么语言?下面是VF的*编程求1~300之间能同时被6和8整除的数的和s=0FORi=1TO300IFi%6=0.and.i%8=0s=s+iENDIFENDFOR?"1~300之间能同时被6和8整除
s=0i=6dowhilei
inputtoNFORi=1tonifmod(i,7)=0?iENDifENDFo
简单,程序如下:fori=1to100ifi%7=0endifendfor行了.
Fori=1To100If(Mod(i,7)=0OrMOd(i,11)=0)ANDi77?iendifEndFor**100以内能被7和11同时整队的只有77,如果不用这个,可以用(Mod(i,7)=
t=0i=1dowhilei