求100以内的素数的Vf程序设计怎么做

这是求素数和的程序,要先建数据库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
你只要在最后加上一条LIST 就可以看见全部素数了或者用BROW也行