【vfp开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了vfp开源代码-程序19.prg的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
CLEAR
SET TALK OFF
I=1
DO WHILE .T.
I=I+2 && 从3开始产生奇数
L=3
TI=.F.
DO WHILE L<=SQRT(I)
IF MOD(I,L)=0
TI=.T.
EXIT
ENDIF
L=L+2
ENDDO && 检验当前的I是否为素数
IF TI
LOOP
ENDIF
K=I && 这个I已是素数
J=1
DO WHILE J<=4
K=K+12 && 检验后面4个数是否为素数
L=3
TK=.F.
DO WHILE L<=SQRT(K)
IF MOD(K,L)=0
TK=.T.
EXIT
ENDIF
L=L+2
ENDDO
IF TK
EXIT
ENDIF
J=J+1
ENDDO
IF J>4 &&若J<=4,则必是中途退出循环的,不符合题意
FOR n=1 TO 1000000
*WAIT '按任意键继续!!!' TIMEOUT 10
? I+12*n
ENDFOR
EXIT
ENDIF
ENDDO
SET TALK ON
RETURN