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

白新岭

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=7.000000000000000000
SELECT 1
  GO 5
  A=素数
  s=s*A*(A^2-9*A+26)/(A-4)/(A-3)/(A-2)
        SKIP 1
        FOR  j=1 TO 50876300
        SELECT 1
        B=素数
        s=s*B*(B^2-9*B+26)/(B-4)/(B-3)/(B-2)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是求，孪生素数中项，最密3生素数（0,2,6）的中项，最密4生素数（0,2,6,8）的中项，三种不同k生素数中项合成结果分布情况。

白新岭

运行结果

白新岭

截止2023年12月05日周二23:25分浏览量138067，回复2496，热度178
截止2023年12月06日周三23:34分浏览量138306，回复2500，热度178

白新岭

截止2023年12月06日周三23:34分浏览量138306，回复2500，热度178
截止2023年12月07日周四23:26分浏览量138441，回复2501，热度178

白新岭

截止2023年12月07日周四23:26分浏览量138441，回复2501，热度178
截止2023年12月08日周五23:32分浏览量138813，回复2502，热度178

白新岭

截止2023年12月08日周五23:32分浏览量138813，回复2502，热度178
截止2023年12月09日周六23:56分浏览量139173，回复2503，热度178

白新岭

截止2023年12月09日周六23:56分浏览量139173，回复2503，热度178
截止2023年12月10日周日23:15分浏览量139436，回复2504，热度178

白新岭

截止2023年12月10日周日23:15分浏览量139436，回复2504，热度178
截止2023年12月12日周二00:23分浏览量139679，回复2505，热度178

白新岭

截止2023年12月12日周二00:23分浏览量139679，回复2505，热度178
截止2023年12月12日周二23:28分浏览量139857，回复2506，热度178

重生888@

请白新岭先生参与0+0理论：证明10000以上的偶数，1+2成立！谢谢！