|

楼主 |
发表于 2021-8-23 21:15
|
显示全部楼层
SELECT 1
USE D:\VFP温习\L10二生素数表.DBF ALIAS 二生素数表
SELECT 2
USE D:\VFP温习\L10二生素数四.DBF ALIAS 二生素数四
SELECT 3
USE D:\vfp温习\L10四生素数统计表.DBF ALIAS 四生统计
kssj=SECONDS()
FOR m=51 TO 60
@ 15,22 say m
SELECT 2
DELETE ALL
PACK
SELECT 1
GO 1
For i=1 TO 4570073-m
@ 5,12 say i
SELECT 1 &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=二生10中
count next m+1 for 6*m=二生10中-A to js1
IF js1=1
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 二10四 WITH A+3*m &&将N值付给素数式
else
ENDIF
SELECT 1
GO jl+1
ENDFOR
SELECT 2
For j=1 to 9
@ 3,6 say j
fw=10^j
SELECT 2
GO 1
COUNT ALL FOR fw>二10四 TO tj
SELECT 3 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 范围 WITH fw
REPLACE 跨度 WITH 6*m
REPLACE 统计 WITH tj
REPLACE k生 WITH 4
ENDFOR
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") |
|