用vfp求2~100的质数

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/25 04:32:50

用vfp求2~100的质数

FOR il=2 TO 100
zs=1
FOR im=2 TO il/2
IF MOD(il,im)=0
zs=0
EXIT
ENDIF
ENDFOR
IF zs=1
?il
ENDIF
ENDFOR