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

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的系数。

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

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是计算：最密4生素数（0,2,6,8）与孪生素数对（0,2）合成的6生素数的公共系数vfp程序。（减法，线性合成）。

数学专业性强，vfp编程平平。

就冲你这种韧劲，成为编程高手也只是时间问题，加油

sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 2
USE h:\二生素数串\孪串6表.DBF ALIAS 孪串6表
SELECT 3
USE h:\二生素数串\孪串6排列.DBF ALIAS 孪串6排列
kssj=SECONDS()                      &&取出开始时间
     SELECT 2
     GO 1
       FOR k=1 TO 7952170
      &&  @22,20 SAY k
      &&  jlh=recno()&&jlh记录号
       PUBLIC F
           F=串6
       PUBLIC G
           G=记录号6
      IF F=48
         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
           SKIP 1
           PUBLIC M
           M=孪串23
                       
           SELECT 3              &&打开保存求解结果的信息表
           APPEND BLANK                        &&增加一条空记录
           REPLACE 串6距 WITH 48       &&将被判断值保存到被判断值字段中(被判断值数据栏)
           REPLACE 记录6 WITH G
           REPLACE 元素1 WITH A
           REPLACE 元素2 WITH B
           REPLACE 元素3 WITH C
           REPLACE 元素4 WITH D
           REPLACE 元素5 WITH E
           REPLACE 元素6 WITH M
           ENDIF
        SELECT 2
        skip
        ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是抄录最密6串孪素的vfp程序，凉一凉，使之冷却。

温故而知新