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

白新岭 · 发表于 2022-12-16 13:50

截止2022年12月15日周四22:36分浏览量82254，回复1893，热度119度
截止2022年12月16日周五13:51分浏览量82291，回复1894，热度119度

独木星空谁 · 发表于 2022-12-16 22:13

截止2022年12月15日周四22:36分浏览量82254，回复1893，热度119度
截止2022年12月16日周五22:13分浏览量82314，回复1895，热度119度

白新岭 · 发表于 2022-12-17 10:12

截止2022年12月16日周五22:13分浏览量82314，回复1895，热度119度
截止2022年12月17日周六10:06分浏览量82359，回复1896，热度119度

白新岭 · 发表于 2022-12-17 16:01

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差三生.DBF ALIAS 三生素数表
kssj=SECONDS()
For i=1 to 50876000
   @ 5,12 say i
   SELECT 1
   PUBLIC A
   A=素数
   jl=recno() &&记录指针位置

   skip
   PUBLIC B
   B=素数

   skip
   PUBLIC C
   C=素数
cj1=B-A
cj2=C-B
IF cj1=2 AND cj2=4
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 三生素 WITH C
      REPLACE 记录3 WITH jl+2
ENDIF

   SELECT 1
   GO jl+1

ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-12-17 17:01

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差三生.DBF ALIAS 等差三生
SELECT 3
USE d:\二次等差素数数列\二次等差四生.DBF ALIAS 等差四生
kssj=SECONDS()
For i=1 to 379705
   @ 5,12 say i
   SELECT 2
   jl3=记录3
SELECT  1
GO jl3
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 2
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=6
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 四生素 WITH A+6
      REPLACE 记录4 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作二次等差4生素数

白新岭 · 发表于 2022-12-17 20:16

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差四生.DBF ALIAS 等差四生
SELECT 3
USE d:\二次等差素数数列\二次等差五生.DBF ALIAS 等差五生
kssj=SECONDS()
For i=1 to 56763
   @ 5,12 say i
   SELECT 2
   jl4=记录4
SELECT  1
GO jl4
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 3
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=8
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 五生素 WITH A+8
      REPLACE 记录5 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作等差5生素数

白新岭 · 发表于 2022-12-17 20:27

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差五生.DBF ALIAS 等差五生
SELECT 3
USE d:\二次等差素数数列\二次等差六生.DBF ALIAS 等差六生
kssj=SECONDS()
For i=1 to 10758
   @ 5,12 say i
   SELECT 2
   jl5=记录5
SELECT  1
GO jl5
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 3
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=10
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 六生素 WITH A+10
      REPLACE 记录6 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-12-17 20:37

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差六生.DBF ALIAS 等差六生
SELECT 3
USE d:\二次等差素数数列\二次等差七生.DBF ALIAS 等差七生
kssj=SECONDS()
For i=1 to 1905
   @ 5,12 say i
   SELECT 2
   jl6=记录6
SELECT  1
GO jl6
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 4
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=12
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 七生素 WITH A+12
      REPLACE 记录7 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作二次等差7生素数

白新岭 · 发表于 2022-12-17 20:45

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差七生.DBF ALIAS 等差七生
SELECT 3
USE d:\二次等差素数数列\二次等差八生.DBF ALIAS 等差八生
kssj=SECONDS()
For i=1 to 403
   @ 5,12 say i
   SELECT 2
   jl7=记录7
SELECT  1
GO jl7
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 5
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=14
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 八生素 WITH A+14
      REPLACE 记录8 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作2次等差素数数列，8生素数

白新岭 · 发表于 2022-12-17 20:56

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差八生.DBF ALIAS 等差八生
SELECT 3
USE d:\二次等差素数数列\二次等差九生.DBF ALIAS 等差九生
kssj=SECONDS()
For i=1 to 99
   @ 5,12 say i
   SELECT 2
   jl8=记录8
SELECT  1
GO jl8
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 5
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=16
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 九生素 WITH A+16
      REPLACE 记录9 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作2次等差素数数列，9生素数

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