SELECT 1
USE D:\三角递增法\四生素数表中分层.DBF ALIAS 四中表分层
SELECT 2
USE D:\三角递增法\偶数双表.DBF ALIAS 偶数双表
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 1000
@ 5,12 say i
SELECT 1
jl=recno()
A=整数
B=余数
SELECT 1
GO 1
For j=1 to 1000
@ 15,22 say j
C=整数
D=余数
E=A+C+INT((B+D)/210)
F=MOD(B+D,210)
SELECT 2
APPEND BLANK
REPLACE 偶整 WITH E
REPLACE 偶余 WITH F
SELECT 1
SKIP
ENDFOR
SELECT 1
GO jl+1
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()
SELECT 1
GO 1
For i=1 to 1000
@ 5,12 say i
SELECT 1
jl=recno()
A=整数
B=余数
SELECT 1
GO 1
For j=1 to 1000
@ 15,22 say j
C=整数
D=余数
E=A+C+INT((B+D)/210)
F=MOD(B+D,210)
SELECT 2
APPEND BLANK
REPLACE 偶整 WITH E
REPLACE 偶余 WITH F
SELECT 1
SKIP
ENDFOR
SELECT 1
GO jl+1
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
素数问题的解决是我学习编程永恒的动力。