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

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

如果不显示循环号，运算速度还可以。

sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 2
USE h:\二生素数串\孪串5表.DBF ALIAS 孪串5表
SELECT 3
USE h:\二生素数串\孪串5排列.DBF ALIAS 孪串5排列
kssj=SECONDS()                      &&取出开始时间
     SELECT 2
     GO 1
       FOR k=1 TO 7952171
      &&  @22,20 SAY k
      &&  jlh=recno()&&jlh记录号
       PUBLIC F
           F=串5
       PUBLIC G
           G=记录号5
      IF F=36
         SELECT 1
         GO G
           PUBLIC A
           A=孪串23
           SKIP 1
           PUBLIC B
           B=孪串23
           SKIP 1
           PUBLIC C
           C=孪串23
           SKIP 1
           PUBLIC D
           D=孪串23
           SKIP 1
           PUBLIC E
           E=孪串23
                       
           SELECT 3              &&打开保存求解结果的信息表
           APPEND BLANK                        &&增加一条空记录
           REPLACE 串5距 WITH 36        &&将被判断值保存到被判断值字段中(被判断值数据栏)
           REPLACE 记录5 WITH G
           REPLACE 元素1 WITH A
           REPLACE 元素2 WITH B
           REPLACE 元素3 WITH C
           REPLACE 元素4 WITH D
           REPLACE 元素5 WITH E
           ENDIF
        SELECT 2
        skip
        ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
利用基表摘抄素数式段落，我只把这里做为一个储存器。

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=3082.130001548320000
SELECT 1
  GO 9
  A=素数
  s=s*A^9*(A-10)/(A-1)^10
        SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B^9*(B-10)/(B-1)^10
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
最密孪串5的系数。