SELECT 1
USE d:\素数表文件\不能合成数头周.DBF ALIAS 不能合成数
SELECT 2
USE d:\素数表文件\不能合成数统计.DBF ALIAS 不能合成数统计表
kssj=SECONDS()
For i=1 to 500
@ 5,12 say i
n=i*1000020
SELECT 1
COUNT ALL FOR 无偶<n TO tj
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 范围 WITH n
REPLACE 总个数 WITH tj
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
最后一步处理,不能合成数统计。
USE d:\素数表文件\不能合成数头周.DBF ALIAS 不能合成数
SELECT 2
USE d:\素数表文件\不能合成数统计.DBF ALIAS 不能合成数统计表
kssj=SECONDS()
For i=1 to 500
@ 5,12 say i
n=i*1000020
SELECT 1
COUNT ALL FOR 无偶<n TO tj
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 范围 WITH n
REPLACE 总个数 WITH tj
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
最后一步处理,不能合成数统计。
素数问题的解决是我学习编程永恒的动力。