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

白新岭 · 发表于 2025-3-9 13:06

SELECT 1
USE D:\素数式系数\素数式13.dbf ALIAS 素数式13
SELECT 2
USE D:\素数式系数\素数式17.dbf ALIAS 素数式17
kssj=SECONDS()  &&取出开始时间
FOR  i=1 TO 17  &&又遇到以前类似事情，外循环变量用了j与下面的内循环变量一致，所以提示0不能做除数。
SELECT 1
GO 1
ss=17
FOR j=1 TO 5760
      sz13=Sss13
      ssy=sz13+(i-1)*30030
      ys=MOD(ssy,ss)
      IF ys=0
      else
   SELECT 2
   APPEND BLANK    &&增加一条空记录
   REPLACE Sss17 WITH ssy
   ENDIF
   SELECT 1
   SKIP
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
筛选素数式从13至17

白新岭 · 发表于 2025-3-9 13:07

SELECT 1
USE D:\素数式系数\素数式17.dbf ALIAS 素数式17
SELECT 2
USE D:\素数式系数\素数式19.dbf ALIAS 素数式19
kssj=SECONDS()  &&取出开始时间
FOR  i=1 TO 19  &&又遇到以前类似事情，外循环变量用了j与下面的内循环变量一致，所以提示0不能做除数。
SELECT 1
GO 1
ss=19
FOR j=1 TO 92160
      sz17=Sss17
      ssy=sz17+(i-1)*510510
      ys=MOD(ssy,ss)
      IF ys=0
      else
   SELECT 2
   APPEND BLANK    &&增加一条空记录
   REPLACE Sss19 WITH ssy
   ENDIF
   SELECT 1
   SKIP
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
筛选素数式从17至19

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

截止2025年03月09日周日06:36分浏览量600719，回复3419，热度263
截止2025年03月13日周四09:34分浏览量604917，回复3422，热度263

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

截止2025年03月13日周四09:34分浏览量604917，回复3422，热度263
截止2025年03月13日周四23:04分浏览量605859，回复3423，热度263

白新岭 · 发表于 2025-3-14 03:40

MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
SELECT 素数式13
BROWSE LAST
APPEND FROM d:\素数式系数\素数式13.xls TYPE XL5 SHEET "Sheet1"
GO top
USE
SELECT 素数式17
BROWSE LAST
USE
MODIFY COMMAND d:\素数式系数\四生成元由13至17.prg AS 936
DO d:\素数式系数\筛选素数式从13至17.prg
SELECT 素数式17
BROWSE LAST
RECCOUNT()
USE
MODIFY COMMAND d:\素数式系数\筛选素数式从13至17.prg AS 936
DO d:\素数式系数\筛选素数式从17至19.prg
MODIFY COMMAND d:\素数式系数\筛选素数式从13至17.prg AS 936
MODIFY COMMAND d:\素数式系数\筛选素数式从17至19.prg AS 936
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND d:\素数式系数\筛选素数式从17至19.prg AS 936
USE 素数式19 AGAIN IN 0
SELECT 素数式19
BROWSE LAST
RECCOUNT()
USE
MODIFY COMMAND d:\素数式系数\筛选素数式从19至23.prg AS 936
DO d:\素数式系数\筛选素数式从19至23.prg
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND d:\素数式系数\筛选素数式从19至23.prg AS 936
USE 素数表十亿 AGAIN IN 0
SELECT 素数表十亿
BROWSE LAST
RECCOUNT()
GO bottom
USE
USE 素数式23 AGAIN IN 0
SELECT 素数式23
BROWSE LAST
GO 1586755
GO bottom
USE
USE 六生素数 AGAIN IN 0
SELECT 六生素数
BROWSE LAST
USE
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
USEuse
USE
MODIFY COMMAND d:\素数式系数\用素数表制作孪中.prg AS 936
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
USE
USE 素数表十亿 AGAIN IN 0
SELECT 素数表十亿
BROWSE LAST
RECCOUNT()
GO 50847534
USE
MODIFY COMMAND d:\素数式系数\用素数表制作孪中.prg AS 936
DO d:\素数式系数\用素数表制作孪中.prg
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
USE
MODIFY COMMAND d:\素数式系数\用素数表制作孪中.prg AS 936
USE 素数表十亿 AGAIN IN 0
SELECT 素数表十亿
BROWSE LAST
USE
DO d:\素数式系数\用素数表制作孪中.prg
USE 素数表十亿 AGAIN IN 0
SELECT 素数表十亿
BROWSE LAST
USE
MODIFY COMMAND d:\素数式系数\用素数表制作孪中.prg AS 936
DO d:\素数式系数\用素数表制作孪中新.prg
SELECT 孪中表
BROWSE LAST
RECCOUNT()
GO top
USE
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
USE

MODIFY COMMAND d:\素数式系数\用素数表制作孪中新.prg AS 936
DO d:\素数式系数\用素数表制作二生素数6.prg
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND d:\素数式系数\用素数表制作二生素数6.prg AS 936
MODIFY COMMAND d:\素数式系数\用素数表制作三生素数6.prg AS 936
DO d:\素数式系数\用素数表制作三生素数6.prg
SELECT 三生素数表
BROWSE LAST
RECCOUNT()
USE
USE 二生素数jl6 AGAIN IN 0
SELECT 二生素数jl6
BROWSE LAST
RECCOUNT()
USE
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
RECCOUNT()
USE
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND d:\素数式系数\用素数表制作二生素数6.prg AS 936
DO d:\素数式系数\用素数表制作二生素数8.prg
SELECT 二生素数表
BROWSE LAST
RECCOUNT()
USE
MODIFY COMMAND d:\素数式系数\用素数表制作三生素数6.prg AS 936
DO d:\素数式系数\用素数表制作三生素数8.prg
USE 二生素数jg8 AGAIN IN 0
SELECT 二生素数jg8
BROWSE LAST
RECCOUNT()
USE
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
RECCOUNT()
GO bottom
RECCOUNT()
USE
SELECT 三生素数表
BROWSE LAST
RECCOUNT()
USE
MODIFY COMMAND d:\素数式系数\用素数表制作三生素数8.prg AS 936
DO d:\素数式系数\用素数表制作四生素数8.prg
SELECT 四生素数表
BROWSE LAST
RECCOUNT()
USE
USE 四生素数jg8 AGAIN IN 0
SELECT 四生素数jg8
BROWSE LAST
RECCOUNT()
USE
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND d:\素数式系数\用素数表制作二生素数8.prg AS 936
DO d:\素数式系数\用素数表制作二生素数10.prg
SELECT 二生素数表
BROWSE LAST
USE
USE 二生素数jg10 AGAIN IN 0
SELECT 二生素数jg10
BROWSE LAST
RECCOUNT()
USE
MODIFY COMMAND d:\素数式系数\用素数表制作三生素数8.prg AS 936
DO d:\素数式系数\用素数表制作三生素数10.prg
SELECT 三生素数表
BROWSE LAST
USE
USE 三生素数jg10 AGAIN IN 0
SELECT 三生素数jg10
BROWSE LAST
RECCOUNT()
USE
MODIFY COMMAND d:\素数式系数\用素数表制作四生素数8.prg AS 936
DO d:\素数式系数\用素数表制作四生素数10.prg
SELECT 四生素数表
BROWSE LAST
USE
MODIFY PROJECT d:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND d:\素数式系数\用素数表制作二生素数10.prg AS 936

白新岭 · 发表于 2025-3-14 03:41

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg12.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=12
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ers12 WITH A+6    &&将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-14 07:58

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg12.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=12
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE sss12 WITH A+6    &&将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-14 08:18

截止2025年03月13日周四23:00分农历二月十四，浏览量396535，回复3627，热度244
截止2025年03月14日周五08:16分农历二月十五，浏览量606468，回复3427，热度263

白新岭 · 发表于 2025-3-14 12:02

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\四生素数jg12.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=12
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ssss12 WITH A+6    &&将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-14 15:02

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

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