[原创]请教vfbpgyfk先生一个编程问题

白新岭

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,"运行时间提示")

白新岭

今天研究孪生素数串。

独木星空谁

截止2023年07月10日周一22:44分浏览量105709，回复2206，热度153
截止2023年07月11日周二23:09分浏览量105880，回复2212，热度153

白新岭

孪串3的制作。
传不上来，

独木星空谁

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重磅出炉！

白新岭

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