|
1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\四生素数表中分层.DBF ALIAS 四中表分层
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 102949
@ 5,12 say i
SELECT 1
&& jl=recno()
PUBLIC A
A=四中
B=INT(A/210)
C=MOD(A,210)
SELECT 2
APPEND BLANK
REPLACE 整数 WITH B
REPLACE 余数 WITH C
SELECT 1
skip
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作四生素数中项的分身 |
|