|

楼主 |
发表于 2023-11-9 11:40
|
显示全部楼层
SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS() &&取出开始时间
s=6.000000000000000000
SELECT 1
GO 3
A=素数
s=s*(1-3/(A-2)^2+2/(A-2)^3)
SKIP 1
FOR j=1 TO 50876310
SELECT 1
B=素数
s=s*(1-3/(B-2)^2+2/(B-2)^3)
SELECT 1
SKIP
ENDFOR
?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这个极限应为:“0” |
|