Question

用VFP编写程序 计算从1到100之间的素数和

用VFP编写程序 计算从1到100之间的素数和
编写程序，并附带详细的解读。谢谢啦！！定重谢。
赶时间请尽快回复。重谢！！

Answer 1

clear
?"1到100之内的所有素数："
s=0
for i=2 to 100
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
??alltrim(str(i))+space(2)
s=s+i
endif
endfor
?"它们的和是：",s

Answer 2

nSum=0 && nSum中记录素数之和
for i=1 to 100
if testSu(i)
nSum = nSum + i
endif
endfor
?nSum

&& 以下为自定义函数，测试一个数是否为素数，如果为素数则返回.t.，否则返回.f.
function testSu
para n
isSushu = .t.
for i=2 to n-1
if mod(n,i)==0
isSushu = .f.
endif
endfor
return isSushu
endfunc