SELECT 1
USE G:\三角递增法\无偶最终结果表新总5.DBF ALIAS 无偶总新5
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
For j=1429 to 1785
@ 3,6 say j
fw=j*1000000
SELECT 1
GO 1
COUNT ALL FOR 无偶<=fw TO tj
SELECT 2
APPEND BLANK
REPLACE 范围 WITH fw
REPLACE 统计 WITH tj
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
第四步
USE G:\三角递增法\无偶最终结果表新总5.DBF ALIAS 无偶总新5
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
For j=1429 to 1785
@ 3,6 say j
fw=j*1000000
SELECT 1
GO 1
COUNT ALL FOR 无偶<=fw TO tj
SELECT 2
APPEND BLANK
REPLACE 范围 WITH fw
REPLACE 统计 WITH tj
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
第四步
素数问题的解决是我学习编程永恒的动力。