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

独木星空谁

截止2022年12月07日周三22:26分浏览量81445，回复1871，热度117度
截止2022年12月08日周四20:49分浏览量81530，回复1874，热度117度

独木星空谁

2生        3生        4生        5生        6生        7生        8生        9生        10生
2        6        8        12        16        20        26        30        32

白新岭

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

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

独木星空谁

截止2022年12月08日周四20:49分浏览量81530，回复1874，热度117度
截止2022年12月09日周五22:49分浏览量81722，回复1877，热度117度

独木星空谁

截止2022年12月09日周五22:49分浏览量81722，回复1877，热度117度
截止2022年12月10日周六22:09分浏览量81790，回复1878，热度117度

白新岭

截止2022年12月10日周六22:09分浏览量81790，回复1878，热度117度
截止2022年12月11日周日19:45分浏览量81865，回复1879，热度117度

白新岭

截止2022年12月10日周六22:09分浏览量81790，回复1878，热度117度
截止2022年12月11日周日19:47分浏览量81867，回复1880，热度118度

独木星空谁

截止2022年12月10日周六22:09分浏览量81790，回复1878，热度117度
截止2022年12月11日周日22:00分浏览量81870，回复1881，热度118度

白新岭

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

白新岭

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

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