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

独木星空谁

截止2022年12月11日周日22:00分浏览量81870，回复1881，热度118度
截止2022年12月12日周一22:57分浏览量81967，回复1884，热度118度

独舟星海

截止2022年12月12日周一22:57分浏览量81967，回复1884，热度118度
截止2022年12月13日周二16:16分浏览量82025，回复1885，热度118度

独舟星海

截止2022年12月12日周一22:57分浏览量81967，回复1884，热度118度
截止2022年12月13日周二16:17分浏览量82026，回复1886，热度119度

白新岭

截止2022年12月12日周一22:57分浏览量81967，回复1884，热度118度
截止2022年12月13日周二23:25分浏览量82042，回复1887，热度119度

白新岭

截止2022年12月13日周二23:25分浏览量82042，回复1887，热度119度
截止2022年12月14日周三16:06分浏览量82121，回复1888，热度119度

独木星空谁

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

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

独木星空谁

截止2022年12月13日周二23:25分浏览量82042，回复1887，热度119度
截止2022年12月14日周三21:21分浏览量82151，回复1890，热度119度

白新岭

截止2022年12月14日周三21:21分浏览量82151，回复1890，热度119度
截止2022年12月15日周四13:01分浏览量82214，回复1891，热度119度

独木星空谁

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=26.812500000000000000
SELECT 1
  GO 7
  A=素数
  s=s*A*(A-11)/(A-5)/(A-6)
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-11)/(B-5)/(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月14日周三21:21分浏览量82151，回复1890，热度119度
截止2022年12月15日周四22:36分浏览量82254，回复1893，热度119度