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

白新岭

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,"运行时间提示")
最后了到了点累

白新岭

截止2025年06月26日周四22:14分浏览量795887， 回复3851，热度282
截止2025年06月27日周五24:29分浏览量798130， 回复3872，热度282

白新岭

截止2025年06月27日周五24:29分浏览量798130， 回复3872，热度282
截止2025年06月28日周六09:40分浏览量798856， 回复3873，热度282
排列五38723

白新岭

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,"运行时间提示")

白新岭

截止2025年06月27日周五24:29分浏览量798130， 回复3872，热度282
截止2025年06月28日周六21:48分浏览量800201， 回复3875，热度282

白新岭

截止2025年06月28日周六21:48分浏览量800201， 回复3875，热度282
截止2025年06月29日周日09:06分浏览量801043， 回复3876，热度282

白新岭

截止2025年06月28日周六21:48分浏览量800201， 回复3875，热度282
截止2025年06月29日周日25:14分浏览量802478， 回复3877，热度282

白新岭

截止2025年06月29日周日25:14分浏览量802478， 回复3877，热度282
截止2025年06月30日周一10:07分浏览量802996， 回复3878，热度282

白新岭

截止2025年06月29日周日25:14分浏览量802478， 回复3877，热度282
截止2025年06月30日周一21:37分浏览量804776， 回复3879，热度282