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

独木星空谁

截止2022年11月23日周三21:03分浏览量80551，回复1822，热度115度
截止2022年11月24日周四21:42分浏览量80668，回复1824，热度115度

白新岭

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

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

白新岭

截止2022年11月24日周四21:42分浏览量80668，回复1824，热度115度
截止2022年11月25日周五10:03分浏览量80713，回复1826，热度116度

白新岭

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

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

独木星空谁

截止2022年11月24日周四21:42分浏览量80668，回复1824，热度115度
截止2022年11月25日周五22:31分浏览量80756，回复1828，热度116度

独木星空谁

截止2022年11月25日周五22:31分浏览量80756，回复1828，热度116度
截止2022年11月26日周六09:28分浏览量80803，回复1829，热度116度

独木星空谁

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

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

独木星空谁

截止2022年11月25日周五22:31分浏览量80756，回复1828，热度116度
截止2022年11月26日周六22:45分浏览量80840，回复1832，热度116度

白新岭

截止2022年11月26日周六09:28分浏览量80803，回复1829，热度116度
截止2022年11月27日周日09:28分浏览量80862，回复1833，热度116度