用Visual FoxPro 怎么输出3到100之间所有的素数之和?

来源：百度知道 编辑：UC知道 时间：2024/06/25 08:42:04
用的是Visual FoxPro编程怎么输入？？怎么输出3到100之间所有的素数之和? 谢谢！！

稍微有点复杂,不过还行,要先建数据库SH.DBF 就一个字段 "素数"
程序如下:
clea
set talk off
sele 1
use sh
zap
n=0
j=3
do while j<=100
for i=2 to j-1
if j%i=0
n=n+1
endif
endfor

if n=0
appe blan
repl 素数 with j
endif
j=j+1
n=0

enddo

sum 素数 to a
?a

CLEAR
s=0
FOR i=2 TO 100
tf=.t.
FOR j= 3 TO SQRT(i)
IF i%j=0
tf=.f.
EXIT
ENDIF
ENDFOR
IF tf=.t.
?i
s=s+i
??s
ENDIF
ENDFOR