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

独舟星海

截止2022年11月29日周二20:15分浏览量81002，回复1853，热度116度
截止2022年11月30日周三15:24分浏览量81050，回复1854，热度116度

独木星空谁

截止2022年11月29日周二20:15分浏览量81002，回复1853，热度116度
截止2022年11月30日周三21:36分浏览量81066，回复1855，热度116度

独木星空谁

截止2022年11月30日周三21:36分浏览量81066，回复1855，热度116度
截止2022年12月01日周四20:54分浏览量81101，回复1856，热度116度

独木星空谁

截止2022年12月01日周四20:54分浏览量81101，回复1856，热度116度
截止2022年12月02日周五12:32分浏览量81138，回复1857，热度116度

独木星空谁

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

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

独木星空谁

截止2022年12月01日周四20:54分浏览量81101，回复1856，热度116度
截止2022年12月02日周五21:32分浏览量81164，回复1859，热度116度

白新岭

截止2022年12月02日周五21:32分浏览量81164，回复1859，热度116度
截止2022年12月03日周六15:06分浏览量81184，回复1859，热度116度

独木星空谁

截止2022年12月02日周五21:32分浏览量81164，回复1859，热度116度
截止2022年12月03日周六21:35分浏览量81193，回复1861，热度116度

白新岭

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=8.555555555555555555
SELECT 1
  GO 6
  A=素数
  s=s*A*(A-9)/(A-2)/(A-7)
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-9)/(B-2)/(B-7)
        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=28.964120370370400000
SELECT 1
  GO 7
  A=素数
  s=s*A*(A-9)/(A-1)/(A-8)
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-9)/(B-1)/(B-8)
        SELECT 1  
        SKIP
        ENDFOR

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