|
SELECT 1
USE d:\k生素数串\五生串13.DBF ALIAS 五生串13
SELECT 2
USE d:\k生素数串\五生串17.DBF ALIAS 五生串17
kssj=SECONDS()
FOR i=1 TO 17
@ 15,22 say i
SELECT 1
GO 1
FOR j=1 TO 96
A=五串13
&& jl1=recno()
s=A+(i-1)*30030
IF MOD(s,17)=0 OR MOD(s,17)=2 OR MOD(s,17)=6 OR MOD(s,17)=8 OR MOD(s,17)=12
else
SELECT 2
APPEND BLANK
REPLACE 五串17 WITH s
ENDIF
SELECT 1
skip
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") |
|