用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

运行过程见附图

---