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

白新岭 · 发表于 2025-3-16 07:49

截止2025年03月15日周六23:30分浏览量608864，回复3436，热度263
截止2025年03月16日周日07:50分浏览量609351，回复3440，热度266

白新岭 · 发表于 2025-3-16 12:33

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg16.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=16
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE sss16 WITH A+8    &&将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-16 19:07

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\四生素数jg16.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 3
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=16
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ssss16 WITH A+8 &&将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-16 21:33

截止2025年03月15日周六23:30分浏览量608864，回复3436，热度263
截止2025年03月16日周日21:32分浏览量610187，回复3443，热度266

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

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\五生素数jg16.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 4
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=16
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE wss16 WITH A+8 &&将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-16 23:21

截止2025年03月15日周六23:30分浏览量608864，回复3436，热度263
截止2025年03月16日周日23:21分浏览量610321，回复3445，热度266

白新岭 · 发表于 2025-3-17 00:35

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\六生素数jg16.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=16
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE lss16 WITH A+8 &&将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-17 09:20

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg18.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=18
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ers18 WITH A+9 &&将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-17 12:56

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg18.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=18
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE sss18 WITH A+9    &&将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-17 13:45

截止2025年03月16日周日23:21分浏览量610321，回复3445，热度266
截止2025年03月17日周一13:45分浏览量611298，回复3449，热度266

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