编程 1000内能被3和7整除的数之和 不知道什么语言详情有开头已经写好了是public sub program1()

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/03 04:24:57
编程 1000内能被3和7整除的数之和 不知道什么语言详情有开头已经写好了是public sub program1()
xSN@H_Z( L>5h@QCc 33-+CBv(>̝=o8RՅ& :wsJoxb.w?\\bӆ?~G?~kMg'XIJRAUY*~Vԓ[@و"峻 F=߮RdJ' L#U$Y%U%ǃb/Rbiq$V摄VyQ\t(Kl"%| V\tco.9oӫP9z\r;Y:YVl%

编程 1000内能被3和7整除的数之和 不知道什么语言详情有开头已经写好了是public sub program1()
编程 1000内能被3和7整除的数之和 不知道什么语言详情有
开头已经写好了
是public sub program1()

编程 1000内能被3和7整除的数之和 不知道什么语言详情有开头已经写好了是public sub program1()
能被3或者7整除
public sub program1()
dim i as integer,counts as long
for i=1 to 1000
if i mod 3 =0 or i mod 7=0 then
counts=counts+i
end if
next
debug.print counts
end sub
能被3和7同时整除
public sub program1()
dim i as integer,counts as long
for i=1 to 1000
if i mod 3 =0 and i mod 7=0 then
counts=counts+i
end if
next
debug.print counts
end sub
或者因为3,7都是素数(质数),所以能同时给他们整除的数是21的倍数
public sub program1()
dim i as integer,counts as long
for i=1 to 1000
if i mod 21 =0 then
counts=counts+i
end if
next
debug.print counts
end sub