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

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

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\四生素数jg22.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=22
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ssss22 WITH A+11  &&将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-19 22:41

截止2025年03月18日周二22:33分浏览量613423，回复3454，热度266
截止2025年03月19日周三22:42分浏览量614723，回复3461，热度266

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

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\五生素数jg22.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=22
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE wss22 WITH A+11  &&将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-20 11:04

截止2025年03月19日周三22:42分浏览量614723，回复3461，热度266
截止2025年03月20日周四11:03分浏览量615256，回复3463，热度266

白新岭 · 发表于 2025-3-20 15:34

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg26.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=26
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ers26 WITH A+13  &&将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-20 19:26

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg26.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=26
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE sss26 WITH A+13 &&将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-20 22:02

截止2025年03月19日周三22:42分浏览量614723，回复3461，热度266
截止2025年03月20日周四22:01分浏览量616264，回复3466，热度266

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

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\四生素数jg26.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=26
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ssss26 WITH A+13 &&将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-21 09:10

截止2025年03月20日周四22:01分浏览量616264，回复3466，热度266
截止2025年03月21日周五09:09分浏览量616765，回复3468，热度266

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

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\五生素数jg26.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=26
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE wss26 WITH A+13  &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

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