VFP趣味编程：素数（质数）的求法

素数（质数）的求法。若求N内的素数，可用N的平方根以内的素数倍数逐个筛掉，余下的便是所求的素数。源程序ex9_1.prg如下： 

SET TALK OFF
INPUT "请输入自然数 N =" TO N
?
?  "从1至"+STR(N)+"间的所以质数"
l=0
i=3
DO WHILE i<=N
  j=INT(SQRT(i))
  k=3
  DO WHILE k<=j
    l=i-INT(i/k)*k
    IF l=0
      EXIT
    ENDIF
    k=k+1
  ENDDO
  IF l<>0
    ?? i
  ENDIF
  i=i+2
ENDDO
RETU