SELECT 1
USE G:\三角递增法\相同记录数表总11.DBF ALIAS 相同记录表11
SELECT 2
USE G:\三角递增法\无偶最终结果表新总11.DBF ALIAS 无偶结果表新11
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 666615
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    && jl=recno()
    PUBLIC A
    A=相同记录数
    B=无偶
    IF A=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 无偶 WITH B     &&将N值付给素数式
    ENDIF
   
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是第四步，导出无解偶数表，记录条数是2的无解，是1的有解。

SELECT 1
USE G:\三角递增法\无偶最终结果表新总11.DBF ALIAS 无偶总新11
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
     For j=3571 to 3927
      @ 3,6 say j
      fw=j*1000000
            SELECT 1
            GO 1
            COUNT ALL FOR 无偶<=fw TO tj
              SELECT  2  
              APPEND BLANK   
              REPLACE 范围 WITH fw
              REPLACE 统计 WITH tj
     ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是最后一步，统计各段偶数无解的个数
这是第五步。

下来，我把四生素数中项表发在这里，你实际运行一下，然后再把它们连成一个整体。
还有其他疑问，我们可以在这里交流。

届时我发一个Excel压缩文件，你看一看，或许比这更加形象，生动，逼真，理解起来更容易。

关于这个问题，还是发到你原贴里吧，那样可以让懂这方面的知识的人看到并帮到你

分享三，那还要两个呢？

往回找找

楼主大人，我试了一下怎么没反应啊

是用附件中的测试的吗？
你的环境是什么？