SELECT 1
USE h:\二生素数串\孪串13表.DBF ALIAS 孪串13表
SELECT 3
USE h:\二生素数串\孪串17表.DBF ALIAS 孪串17表
kssj=SECONDS()                      &&取出开始时间
  FOR i=1 TO 17
     @22,20 SAY i
     SELECT 1
     GO 1
       FOR k=1 TO 1485
       lc13=孪串13
       bpz=lc13+(i-1)*30030 &&给被判断值置数，以循环值做变量。
        ys=MOD(bpz,17)
        IF ys=0 OR ys=2
        else                        
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 孪串17 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对孪生素数串的一个研究，不知放在那儿，吹水佬版主莫怪。

SELECT 1
USE h:\二生素数串\孪串17表.DBF ALIAS 孪串17表
SELECT 3
USE h:\二生素数串\孪串19表.DBF ALIAS 孪串19表
kssj=SECONDS()                      &&取出开始时间
  FOR i=1 TO 19
     @22,20 SAY i
     SELECT 1
     GO 1
       FOR k=1 TO 22275
       lc17=孪串17
       bpz=lc17+(i-1)*510510 &&给被判断值置数，以循环值做变量。
        ys=MOD(bpz,19)
        IF ys=0 OR ys=2
        else                        
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 孪串19 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE h:\二生素数串\孪串19表.DBF ALIAS 孪串19表
SELECT 3
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
kssj=SECONDS()                      &&取出开始时间
  FOR i=1 TO 23
     @22,20 SAY i
     SELECT 1
     GO 1
       FOR k=1 TO 378675
       lc19=孪串19
       bpz=lc19+(i-1)*9699690 &&给被判断值置数，以循环值做变量。
        ys=MOD(bpz,23)
        IF ys=0 OR ys=2
        else                        
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 孪串23 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

今天喝多了，发了不着边际的程序，不为别的，为出书做准备。
[附件]2[/附件
看来超过5M咋也发不了。

SELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 3
USE h:\二生素数串\孪串3表.DBF ALIAS 孪串3表
kssj=SECONDS()                      &&取出开始时间
     SELECT 1
     GO 1
       FOR k=1 TO 7952173
        @22,20 SAY k
        jlh=recno()&&jlh记录号
        PUBLIC A
        A=孪串23
        SKIP 2
        PUBLIC B
        B=孪串23
        C=B-A                    
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 串3 WITH C          &&将被判断值保存到被判断值字段中(被判断值数据栏)
        SELECT 1
        GO jlh+1
        ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 3
USE h:\二生素数串\孪串4表.DBF ALIAS 孪串4表
kssj=SECONDS()                      &&取出开始时间
     SELECT 1
     GO 1
       FOR k=1 TO 7952172
        @22,20 SAY k
        jlh=recno()&&jlh记录号
        PUBLIC A
        A=孪串23
        SKIP 3
        PUBLIC B
        B=孪串23
        C=B-A                    
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 串4 WITH C          &&将被判断值保存到被判断值字段中(被判断值数据栏)
        REPLACE 记录号4 WITH jlh  
        SELECT 1
        GO jlh+1
        ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

孪串4重磅出炉。

这是运行了将近24个小时？是46楼的程序吗？

[此贴子已经被作者于2023-7-12 07:51编辑过]

这是因为跨了夜，也就几分钟的事。那是负时间。

哦