SELECT 1
USE D:\VFP温习\素数式至23表.DBF ALIAS 素数式23
SELECT 2
USE D:\VFP温习\L30二生素数表q2.DBF ALIAS 二生素数30
SELECT 3
USE D:\VFP温习\L30三生素数表q2.DBF ALIAS 三生素数30
kssj=SECONDS()
For i=1 to 21205790
@ 5,12 say i
SELECT 2
jlh2=记录号2
SELECT 1 &&打开盛放素数式的表
GO jlh2
jl=recno()
PUBLIC A
A=素数式
FOR j=1 TO 18
SELECT 1
GO jl+j
PUBLIC B
B=素数式
C=B-A
IF C=60
SELECT 3
APPEND BLANK &&增加一条空记录
REPLACE 素式3 WITH A+60 &&将N值付给素数式
REPLACE 记录号3 WITH jl+j &&将N值付给素数式
exit
else
ENDIF
endfor
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")