用VFP编写一个小程序
发布网友
发布时间：2022-05-15 19:15
共1个回答
热心网友
时间：2024-03-16 15:12
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
