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

白新岭

截止2025年05月31日周六24:00分浏览量732041， 回复3688，热度276
截止2025年06月01日周日20:45分浏览量733893， 回复3690，热度276

白新岭

截止2025年05月31日周六24:00分浏览量732041， 回复3688，热度276
截止2025年06月01日周日23:08分浏览量734116， 回复3691，热度276

白新岭

截止2025年06月01日周日23:08分浏览量734116， 回复3691，热度276
截止2025年06月02日周一09:02分浏览量735122， 回复3692，热度276

白新岭

CLEAR ALL
SELECT 1
USE  d:\四生素数间距十\四生元至11.DBF ALIAS 生成元11
  SELECT 2
USE  d:\四生素数间距十\四生元至13.DBF ALIAS 生成元13
    kssj=SECONDS()                      &&取出开始时间
   For N=1 to 13
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 42
           X=scy11+2310*(N-1)
           MZ=X%13
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10
                  else
                  SELECT   2     
                  APPEND BLANK            &&增加一条空记录
                  REPLACE scy13 WITH X     &&将N值付给....
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作四生素数（0,4,6,10）的生成元（逐级晋升）

白新岭

CLEAR ALL
SELECT 1
USE  d:\四生素数间距十\四生元至13.DBF ALIAS 生成元13
  SELECT 2
USE  d:\四生素数间距十\四生元至17.DBF ALIAS 生成元17
    kssj=SECONDS()                      &&取出开始时间
   For N=1 to 17
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 378
           X=scy13+30030*(N-1)
           MZ=X%17
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10
                  else
                  SELECT   2     
                  APPEND BLANK            &&增加一条空记录
                  REPLACE scy17 WITH X     &&将N值付给....
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作四生素数（0,4,6,10）的生成元（逐级晋升）

白新岭

CLEAR ALL
SELECT 1
USE  d:\四生素数间距十\四生元至17.DBF ALIAS 生成元17
  SELECT 2
USE  d:\四生素数间距十\四生元至19.DBF ALIAS 生成元19
    kssj=SECONDS()                      &&取出开始时间
   For N=1 to 19
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 4914
           X=scy17+510510*(N-1)
           MZ=X%19
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10
                  else
                  SELECT   2     
                  APPEND BLANK            &&增加一条空记录
                  REPLACE scy19 WITH X     &&将N值付给....
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作四生素数（0,4,6,10）的生成元（逐级晋升）

白新岭

CLEAR ALL
SELECT 1
USE  d:\四生素数间距十\四生元至19.DBF ALIAS 生成元19
  SELECT 2
USE  d:\四生素数间距十\四生元至23.DBF ALIAS 生成元23
    kssj=SECONDS()                      &&取出开始时间
   For N=1 to 23
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 73710
           X=scy19+9699690*(N-1)
           MZ=X%23
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10
                  else
                  SELECT   2     
                  APPEND BLANK            &&增加一条空记录
                  REPLACE scy23 WITH X     &&将N值付给....
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作四生素数（0,4,6,10）的生成元（逐级晋升）

白新岭

截止2025年06月01日周日23:08分浏览量734116， 回复3691，热度276
截止2025年06月02日周一23:42分浏览量736664， 回复3697，热度276

白新岭

截止2025年06月02日周一23:42分浏览量736664， 回复3697，热度276
截止2025年06月03日周二23:55分浏览量739280， 回复3698，热度276

白新岭

截止2025年06月03日周二23:55分浏览量739280， 回复3698，热度276
截止2025年06月04日周三13:11分浏览量740659， 回复3699，热度276