clear
for i=2 to 1000
if ss(i)
??i
endif
endfor
*--以下是函数ss, 在上面调用, 传入一个数字, 如果是素数就返回真,否则返回假
function ss
lparameter x
lifzc=.f. &&是否被整除,默认为假, 一旦被整除,就证明不是素数
for j=2 to x-1
if x/j=int(x/j)
lifzc=.t.
exit
endif
endfor
return !lifzc
endfunction