SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
bwjm="偶数周期表"
For j=221 to 238
@ 5,12 say j
k=j
wd=bwjm+ALLTRIM(STR(j))
USE G:\三角递增法\&wd in 0
For i=(j-1)*500000+1 to (j+1)*500000
@ 5,12 say i
n=i
s=0
IF MOD(n,5)=1
s=s+30
ENDIF
IF MOD(n,5)=2
s=s+90
ENDIF
IF MOD(n,5)=3
s=s+120
ENDIF
IF MOD(n,5)=4
s=s+180
ENDIF
IF MOD(n,5)=0
s=s+210
ENDIF
wou=INT((n-1)/5)*210+s
SELECT "偶数周期表"+ALLTRIM(STR(k))
&& select G:\三角递增法\&WD..DBF IN 0
A=偶数
IF A=wou
SELECT "偶数周期表"+ALLTRIM(STR(k))
skip
LOOP
ELSE
SELECT 239
APPEND BLANK
REPLACE 无偶 WITH wou
ENDIF
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是第14个外循环(也是最后一次外循环)
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
bwjm="偶数周期表"
For j=221 to 238
@ 5,12 say j
k=j
wd=bwjm+ALLTRIM(STR(j))
USE G:\三角递增法\&wd in 0
For i=(j-1)*500000+1 to (j+1)*500000
@ 5,12 say i
n=i
s=0
IF MOD(n,5)=1
s=s+30
ENDIF
IF MOD(n,5)=2
s=s+90
ENDIF
IF MOD(n,5)=3
s=s+120
ENDIF
IF MOD(n,5)=4
s=s+180
ENDIF
IF MOD(n,5)=0
s=s+210
ENDIF
wou=INT((n-1)/5)*210+s
SELECT "偶数周期表"+ALLTRIM(STR(k))
&& select G:\三角递增法\&WD..DBF IN 0
A=偶数
IF A=wou
SELECT "偶数周期表"+ALLTRIM(STR(k))
skip
LOOP
ELSE
SELECT 239
APPEND BLANK
REPLACE 无偶 WITH wou
ENDIF
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是第14个外循环(也是最后一次外循环)
素数问题的解决是我学习编程永恒的动力。