[原创]请教vfbpgyfk先生一个编程问题

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中和值6复.DBF ALIAS 四中和6复
   SELECT 2
   USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
   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 sztj6  WITH sztj6+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:\最密四生素数文件\四中和值6复.DBF ALIAS 四中和6复
   SELECT 2
   USE d:\最密四生素数文件\四中和值7.DBF ALIAS 四中和7
   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 sztj6 WITH sztj6+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:\最密四生素数文件\四中和值8复.DBF ALIAS 四中和8复
   SELECT 2
   USE d:\最密四生素数文件\四中和值7.DBF ALIAS 四中和7
   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 sztj8  WITH sztj8+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:\最密四生素数文件\四中和值10复.DBF ALIAS 四中和10复&&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值9.DBF ALIAS 四中和9 &&每次需要更改表名中的阿拉伯数字
   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 sztj10  WITH sztj10+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:\最密四生素数文件\四中和值10复.DBF ALIAS 四中和10复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值11.DBF ALIAS 四中和11 &&每次修改文件名中的阿拉伯数字
   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 sztj10 WITH sztj10+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2025年06月24日周二21:48分浏览量789632， 回复3833，热度282
截止2025年06月25日周三22:51分浏览量792816， 回复3845，热度282

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中和值12复.DBF ALIAS 四中和12复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值11.DBF ALIAS 四中和11 &&每次需要更改表名中的阿拉伯数字
   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 sztj12  WITH sztj12+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:\最密四生素数文件\四中和值12复.DBF ALIAS 四中和12复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值13.DBF ALIAS 四中和13 &&每次修改文件名中的阿拉伯数字
   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 sztj12 WITH sztj12+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2025年06月25日周三22:51分浏览量792816， 回复3845，热度282
截止2025年06月26日周四11:11分浏览量794293， 回复3848，热度282

白新岭

SELECT 1
   USE d:\最密四生素数文件\四中和值14复.DBF ALIAS 四中和14复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值13.DBF ALIAS 四中和13 &&每次需要更改表名中的阿拉伯数字
   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 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,"运行时间提示")