|
SELECT 1
USE f:\等差四生素数\四中d30.DBF ALIAS 四中表
SELECT 2
USE f:\等差四生素数\各段四生素数个数5.DBF ALIAS 四生个数表5
SELECT 3
USE f:\等差四生素数\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数周期表"
For i=85 to 100
@ 5,12 say i
wd=bwjm+ALLTRIM(STR(i-1))
USE IN 3
USE f:\等差四生素数\偶数表新.DBF ALIAS 偶数表新
SELECT 3
DELETE ALL
PACK
FOR j=1 TO INT(i/2)
@ 15,22 say j
SELECT 2
GO j
zgs1=总个数
fgs1=分个数
SELECT 2
GO i-j
zgs2=总个数
fgs2=分个数
SELECT 1
GO zgs1-fgs1+1
FOR k1=1 TO fgs1
A=四中30
jl1=recno()
SELECT 1
GO zgs2-fgs2+1
For k2=1 to fgs2
jl2=recno()
B=四中30
C=A+B
SELECT 3
APPEND BLANK
REPLACE 偶数 WITH C
SELECT 1
GO jl2+1
ENDFOR
SELECT 1
GO jl1+1
ENDFOR
ENDFOR
SELECT 3
USE IN 3&&打开,或关闭,那个工作区(或者,写别名)
select * from 偶数表新.dbf DISTINCT INTO table f:\等差四生素数\&wd
USE IN &wd
SELECT 3
USE IN 3
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") |
|