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

白新岭 · 发表于 2025-4-26 07:50

截止2025年04月25日周五23:33分浏览量656628，回复3569，热度272
截止2025年04月26日周六07:50分浏览量657275，回复3570，热度272

白新岭 · 发表于 2025-4-26 17:24

SELECT 1
   USE D:\制作最密素数式\素数式13.DBF ALIAS 素数式
   SELECT 2
   USE D:\制作最密素数式\素数式间距.DBF ALIAS 素数式间距
   SELECT 3
   USE D:\制作最密素数式\k生素数式.DBF ALIAS k生素数式
   kssj=SECONDS()
   FOR j=30 TO 68
      @ 5,12 say j
      k=j+1
      SELECT 2
      GO k-1
      PUBLIC ss
      ss=生数
      PUBLIC kj
      kj=跨距
         SELECT  1
         GO 1
         For i=1 to 5760
         SELECT  1
         jl=recno()
         PUBLIC A
         A=ssss13
         SKIP k-1
         PUBLIC B
         B=ssss13
         cj1=B-A  &&求间隔一定素数式个数的差值
            IF cj1=kj
            SELECT 3
            APPEND BLANK    &&增加一条空记录
            REPLACE k生  WITH k &&赋值语句
            REPLACE 位置 WITH jl &&赋值语句
               FOR n=1 TO k
               cc="sss"+transform(n)
               SELECT 1
               GO jl
               C=ssss13
               SELECT 3
               REPLACE &cc. WITH  C
               SELECT 1
               GO jl+1
               ENDFOR
            ENDIF
      SELECT 1
      GO jl+1
      ENDFOR

   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
所得结果不是自己预期的样子。
问题的关键应该是吧select 1
go jl 语句放在了最内层循环里面了，应该放在外面。

白新岭 · 发表于 2025-4-26 17:35

SELECT 1
   USE D:\制作最密素数式\素数式13.DBF ALIAS 素数式
   SELECT 2
   USE D:\制作最密素数式\素数式间距.DBF ALIAS 素数式间距
   SELECT 3
   USE D:\制作最密素数式\k生素数式.DBF ALIAS k生素数式
   kssj=SECONDS()
   FOR j=30 TO 68
      @ 5,12 say j
      k=j+1
      SELECT 2
      GO k-1
      PUBLIC ss
      ss=生数
      PUBLIC kj
      kj=跨距
         SELECT  1
         GO 1
         For i=1 to 5760
         SELECT  1
         jl=recno()
         PUBLIC A
         A=ssss13
         SKIP k-1
         PUBLIC B
         B=ssss13
         cj1=B-A  &&求间隔一定素数式个数的差值
            IF cj1=kj
            SELECT 3
            APPEND BLANK    &&增加一条空记录
            REPLACE k生  WITH k &&赋值语句
            REPLACE 位置 WITH jl &&赋值语句
               SELECT 1
               GO jl
               FOR n=1 TO k
               cc="sss"+transform(n)
               C=ssss13
               SELECT 3
               REPLACE &cc. WITH  C
               SELECT 1
               GO jl+1
               ENDFOR
            ENDIF
      SELECT 1
      GO jl+1
      ENDFOR

   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
仍就没有获得想要的结果，那个GO jl+1还是不行，没有变化。

白新岭 · 发表于 2025-4-26 17:41

SELECT 1
   USE D:\制作最密素数式\素数式13.DBF ALIAS 素数式
   SELECT 2
   USE D:\制作最密素数式\素数式间距.DBF ALIAS 素数式间距
   SELECT 3
   USE D:\制作最密素数式\k生素数式.DBF ALIAS k生素数式
   kssj=SECONDS()
   FOR j=30 TO 68
      @ 5,12 say j
      k=j+1
      SELECT 2
      GO k-1
      PUBLIC ss
      ss=生数
      PUBLIC kj
      kj=跨距
         SELECT  1
         GO 1
         For i=1 to 5760
         SELECT  1
         jl=recno()
         PUBLIC A
         A=ssss13
         SKIP k-1
         PUBLIC B
         B=ssss13
         cj1=B-A  &&求间隔一定素数式个数的差值
            IF cj1=kj
            SELECT 3
            APPEND BLANK    &&增加一条空记录
            REPLACE k生  WITH k &&赋值语句
            REPLACE 位置 WITH jl &&赋值语句
               SELECT 1
               GO jl
               FOR n=1 TO k
               cc="sss"+transform(n)
               C=ssss13
               SELECT 3
               REPLACE &cc. WITH  C
               SELECT 1
               GO jl+n
               ENDFOR
            ENDIF
      SELECT 1
      GO jl+1
      ENDFOR

   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
获得满意结果，是自己预想的样子

白新岭 · 发表于 2025-4-26 22:40

截止2025年04月25日周五23:33分浏览量656628，回复3569，热度272
截止2025年04月26日周六22:39分浏览量658504，回复3574，热度272

白新岭 · 发表于 2025-4-27 09:36

截止2025年04月26日周六22:39分浏览量658504，回复3574，热度272
截止2025年04月27日周日09:35分浏览量658935，回复3575，热度272

白新岭 · 发表于 2025-4-27 20:15

截止2025年04月26日周六22:39分浏览量658504，回复3574，热度272
截止2025年04月27日周日20:15分浏览量659851，回复3576，热度272

白新岭 · 发表于 2025-4-27 23:46

截止2025年04月26日周六22:39分浏览量658504，回复3574，热度272
截止2025年04月27日周日23:43分浏览量660081，回复3577，热度272
回复3577（有2个七），20250427日七星彩857262--2,浏览量660081确实是2个6，热度272，总之与27相关联。

白新岭 · 发表于 2025-4-28 07:27

截止2025年04月27日周日23:43分浏览量660081，回复3577，热度272
截止2025年04月28日周一07:26分浏览量660712，回复3578，热度272

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