Question

用VFP编写一个小程序

VFP中定义一个判断N是素数的函数然后调用该函数求2~10000内的全部素数

Answer 1

* VFP中定义一个判断N是素数的函数，然后调用该函数求2~10000内的全部素数
SET TALK OFF
CLEAR
FOR i1=2 TO 1000
IF ispn(i1)
??i1
ENDIF
ENDFOR
SET TALK ON
RETURN

FUNCTION ispn
PARAMETERS sz
IF sz<2
RETURN .f.
ENDIF
ssbz=.t.
FOR j1=2 TO sz-1
IF MOD(sz,j1)=0
ssbz=.f.
EXIT
ENDIF
ENDFOR
RETURN ssbz