用VFP编写一个小程序

* 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

正确的程序如下：

set talk off

i=0

input "输入一个正数(0结束):" to a

do while a<>0

if a>0

if i=0 .or. a>v_max

v_max=a

endif

if i=0 .or. a<v_min

v_min=a

endif

i=i+1

else

? '搞错了，只能输入正数，不准为负数！'

endif

input "输入一个正数(0结束):" to a

enddo

?'你总共输入了',i,'个数，最大的是',v_max,'，最小的是',v_min

运行过程见附图

---