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

白新岭

截止2023年07月14日周五22:21分浏览量106402，回复2227，热度153
截止2023年07月15日周六23:08分浏览量106611，回复2228，热度153

白新岭

截止2023年07月15日周六23:08分浏览量106611，回复2228，热度153
截止2023年07月16日周日16:39分浏览量106773，回复2229，热度153

白新岭

截止2023年07月15日周六23:08分浏览量106611，回复2228，热度153
截止2023年07月16日周日22:03分浏览量106817，回复2230，热度153

白新岭

截止2023年07月16日周日22:03分浏览量106817，回复2230，热度153
截止2023年07月17日周一17:06分浏览量107040，回复2231，热度153

白新岭

截止2023年07月16日周日22:03分浏览量106817，回复2230，热度153
截止2023年07月17日周一22:24分浏览量107080，回复2232，热度153

白新岭

截止2023年07月17日周一22:24分浏览量107080，回复2232，热度153
截止2023年07月18日周二23:43分浏览量107387，回复2233，热度153

白新岭

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=10.0000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*A*(A-6)/(A-2)/(A-4)
        SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-6)/(B-2)/(B-4)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是计算：最密4生素数（0,2,6,8）与孪生素数对（0,2）合成的6生素数的公共系数vfp程序。（减法，线性合成）。

白新岭

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=7.0000000000000000
SELECT 1
  GO 5
  A=素数
  s=s*A*(A-8)/(A-2)/(A-6)
        SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-8)/(B-2)/(B-6)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是最密三串孪素与孪生素数对的公共合成系数程序。

独木星空谁

截止2023年07月18日周二23:43分浏览量107387，回复2233，热度153
截止2023年07月19日周三23:05分浏览量107555，回复2236，热度153

白新岭

截止2023年07月19日周三23:05分浏览量107555，回复2236，热度153
截止2023年07月20日周四19:44分浏览量107733，回复2237，热度153