SELECT 1
   USE d:\最密四生素数文件\四中和值14复.DBF ALIAS 四中和14复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值15.DBF ALIAS 四中和15 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj14 WITH sztj14+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:\最密四生素数文件\四中和值18复.DBF ALIAS 四中和18复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值17.DBF ALIAS 四中和17 &&每次需要更改表名中的阿拉伯数字
   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 sztj18  WITH sztj18+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:\最密四生素数文件\四中和值18复.DBF ALIAS 四中和18复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值19.DBF ALIAS 四中和19 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj18 WITH sztj18+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:\最密四生素数文件\四中和值20复.DBF ALIAS 四中和20复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值19.DBF ALIAS 四中和19 &&每次需要更改表名中的阿拉伯数字
   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 sztj20  WITH sztj20+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:\最密四生素数文件\四中和值20复.DBF ALIAS 四中和20复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj20 WITH sztj20+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:\最密四生素数文件\四中和值22复.DBF ALIAS 四中和22复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&每次需要更改表名中的阿拉伯数字
   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 sztj22  WITH sztj22+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:\最密四生素数文件\四中和值22复.DBF ALIAS 四中和22复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值23.DBF ALIAS 四中和23 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj22 WITH sztj22+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:\最密四生素数文件\四中和值24复.DBF ALIAS 四中和24复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值23.DBF ALIAS 四中和23 &&每次需要更改表名中的阿拉伯数字
   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 sztj24  WITH sztj24+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:\最密四生素数文件\四中和值24复.DBF ALIAS 四中和24复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值25.DBF ALIAS 四中和25 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj24 WITH sztj24+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:\最密四生素数文件\四中和值26复.DBF ALIAS 四中和26复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值25.DBF ALIAS 四中和25 &&每次需要更改表名中的阿拉伯数字
   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 sztj26  WITH sztj26+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")