SELECT 1
   USE d:\最密四生素数文件\四中和值34.DBF ALIAS 四中和34  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值33DBF ALIAS 四中和33&&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj34 WITH sztj34+A &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值34复.DBF ALIAS 四中和34复
   SELECT 2
   USE d:\最密四生素数文件\四中和值33.DBF ALIAS 四中和33
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj34 WITH sztj34+A &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     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=100.000000000000000000
SELECT 1
  GO 5
  A=素数
  s=s*A*(A-8)/(A-4)^2
        SKIP 1
        FOR  j=1 TO 50876200
        SELECT 1
        B=素数
        s=s*B*(B-8)/(B-4)^2
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

20250630报道

SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有的.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 69
      @ 3,6 say i
        fw=i*19399380
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
    USE d:\最密四生素数文件\四中和值4复中没有的.DBF ALIAS 四中和复4没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+1338557220
        SELECT 1
        COUNT ALL FOR szhz4<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+69
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
    USE d:\最密四生素数文件\四中和值6复中没有的.DBF ALIAS 四中和复6没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+2230928700
        SELECT 1
        COUNT ALL FOR szhz6<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+115
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
    USE d:\最密四生素数文件\四中和值8复中没有的.DBF ALIAS 四中和复8没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+3123300180
        SELECT 1
        COUNT ALL FOR szhz8<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+161
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
    USE d:\最密四生素数文件\四中和值10复中没有的.DBF ALIAS 四中和复10没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+4015671660
        SELECT 1
        COUNT ALL FOR szhz10<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+207
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
    USE d:\最密四生素数文件\四中和值12复中没有的.DBF ALIAS 四中和复12没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+4908043140
        SELECT 1
        COUNT ALL FOR szhz12<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+253
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")