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

独木星空谁

截止2022年11月20日周日20:36分浏览量80269，回复1811，热度115度
截止2022年11月21日周一23:21分浏览量80366，回复1814，热度115度

白新岭

截止2022年11月21日周一23:21分浏览量80366，回复1814，热度115度
截止2022年11月22日周二09:51分浏览量80408，回复1815，热度115度

独舟星海

截止2022年11月21日周一23:21分浏览量80366，回复1814，热度115度
截止2022年11月22日周二10:12分浏览量80422，回复1816，热度115度

白新岭

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

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

白新岭

截止2022年11月21日周一23:21分浏览量80366，回复1814，热度115度
截止2022年11月22日周二21:18分浏览量80451，回复1820，热度115度

白新岭

MODIFY PROJECT e:\三角递增法\三角项目.pjx
USE 四生素数表中 AGAIN IN 0
SELECT 四生素数表中
BROWSE LAST
?RECCOUNT()
GO bottom
GO 1000
GO 200
COUNT ALL FOR 四中<1000000 TO tj
?tj
GO 1
COPY TO e:\三角递增法\四生素数中项.xls NEXT 165 TYPE XL5
USE
MODIFY PROJECT f:\最密三生素数\正三生素数.pjx
USE 三生素数d24 AGAIN IN 0
SELECT 三生素数d24
BROWSE LAST
GO bottom
COUNT ALL FOR 三中24<1000000 TO tj
?tj
GO 1392
GO 1
COPY TO f:\最密三生素数\三中表.xls NEXT 1392 TYPE XL5
USE

今天的实际操作。

独木星空谁

截止2022年11月22日周二21:18分浏览量80451，回复1820，热度115度
截止2022年11月22日周二21:03分浏览量80551，回复1822，热度115度
浏览量80551-80451=100=\(10^2\)

独舟星海

截止2022年11月23日周三21:03分浏览量80551，回复1822，热度115度
截止2022年11月24日周四16:41分浏览量80644，回复1823，热度115度