vfp编程输出2到1000之间的质数、个数及其和

SET TALK OFF
CLEAR
INPUT "M=" TO M
S=0
T=0
FOR I=M TO 1 STEP -1
IF SS(I)
S=S+1
??STR(I,5)
T=T+I
ENDIF
ENDFOR
?STR(S,5)
?STR(T,5)
SET TALK ON

FUNC SS
PARA X
FOR J=2 TO X-1
IF INT(X/J)=X/J
EXIT
ENDIF
ENDFOR
IF J=X
RETURN .T.
ELSE
RETURN .F.
ENDIF

请参见http://zhidao.baidu.com/question/4892671.html

拿那个数分别去除以2,3,5,7.如果都有余数则这个数一定是一个素数.以下vfp程序将计算出长度小于20位的所有素数并将其结果逐行逐列存入一个有10列的素数表中.
SELECT 1
SET ESCAPE on
USE 素数表.dbf
INSERT blank
DIMENSION a(1)
a=1
f=1
DO while a<99999999999999999999
b=MOD(a,2)
c=MOD(a,3)