[原创]请教vfbpgyfk先生一个编程问题

白新岭 · 发表于 2025-3-23 09:59

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\六生素数jg28.DBF ALIAS 六生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 5
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=28
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE lss28 WITH A+14 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-23 13:09

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\七生素数jg28.DBF ALIAS 七生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 6
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=28
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE qss28 WITH A+14  &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-23 18:29

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\八生素数jg28.DBF ALIAS 八生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 7
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=28
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE bss28 WITH A+14  &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-23 23:21

截止2025年03月22日周六20:41分浏览量618923，回复3477，热度266
截止2025年03月23日周日23:20分浏览量620558，回复3483，热度266

白新岭 · 发表于 2025-3-23 23:43

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg30.DBF ALIAS 二生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 1
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=30
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ers30 WITH A+15  &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-24 08:54

截止2025年03月23日周日23:20分浏览量620558，回复3483，热度266
截止2025年03月24日周一08:54分浏览量622017，回复3485，热度266

白新岭 · 发表于 2025-3-24 12:37

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg30.DBF ALIAS 三生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 2
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=30
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE sss30 WITH A+15 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-26 23:48

截止2025年03月24日周一08:54分浏览量622017，回复3485，热度266
截止2025年03月26日周三23:47分浏览量622402，回复3487，热度266

白新岭 · 发表于 2025-3-27 09:20

截止2025年03月26日周三23:47分浏览量622402，回复3487，热度266
截止2025年03月27日周四09:19分浏览量622423，回复3488，热度266

白新岭 · 发表于 2025-3-27 23:08

截止2025年03月26日周三23:47分浏览量622402，回复3487，热度266
截止2025年03月27日周四23:07分浏览量622456，回复3489，热度266

		自动登录	找回密码
密码			注册