|

楼主 |
发表于 2022-3-14 09:39
|
显示全部楼层
SELECT 1
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 2
USE d:\素数表文件\最密五生素数.DBF ALIAS 五素表
kssj=SECONDS()
For i=1 to 9591
@ 5,12 say i
SELECT 1 &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
&& COUNT NEXT 28 FOR 素数-A=56 TO tj
SKIP
PUBLIC B
B=素数
SKIP
PUBLIC C
C=素数
SKIP
PUBLIC D
D=素数
SKIP
PUBLIC E
E=素数
IF B-A=2 AND C-B=4 AND D-C=2 AND E-D=4
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 五素 WITH A+6 &&将N值付给素数式
ENDIF
SELECT 1
GO jl+1
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") |
|