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

独木星空谁

截止2025年07月21日周一22:48分浏览量857589， 回复3968，热度285
截止2025年07月22日周二09:35分浏览量858480， 回复3970，热度286

独舟星海

截止2025年07月21日周一22:48分浏览量857589， 回复3968，热度285
截止2025年07月22日周二09:41分浏览量858487， 回复3971，热度287

白新岭

截止2025年07月21日周一22:48分浏览量857589， 回复3968，热度285
截止2025年07月22日周二09:47分浏览量858491， 回复3972，热度288

白新岭

截止2025年07月21日周一22:48分浏览量857589， 回复3968，热度285
截止2025年07月22日周二15:40分浏览量859042， 回复3973，热度288

白新岭

  SELECT 1
   USE  d:\最密三生素数文件\对称8素13.DBF ALIAS 对称8素13
   SELECT 2
    USE  d:\最密三生素数文件\对称8素末.DBF ALIAS 对称8素11
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 13
    @ 3,6 say N
       SELECT 2
       go 1
       for m=1 to 8
           && @ 4,8 say 孪素
           X=dc8s+2310*(N-1)
           MZ=X%13
                IF  MZ=0 OR MZ=1 OR MZ=2 OR MZ=6 OR MZ=7 OR MZ=11 OR MZ=12
                  else
                  SELECT   1      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s13 WITH X     &&将N值付给素
                ENDIF
                SELECT 2
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从11升级到13）

白新岭

截止2025年07月21日周一22:48分浏览量857589， 回复3968，热度285
截止2025年07月22日周二22:49分浏览量860386， 回复3975，热度288

白新岭

截止2025年07月22日周二22:49分浏览量860386， 回复3975，热度288
截止2025年07月23日周三08:59分浏览量861259， 回复3976，热度288

白新岭

截止2025年07月22日周二22:49分浏览量860386， 回复3975，热度288
截止2025年07月23日周三23:41分浏览量862936， 回复3977，热度288

白新岭

截止2025年07月23日周三23:41分浏览量862936， 回复3977，热度288
截止2025年07月24日周四09:44分浏览量863708， 回复3978，热度288

白新岭

截止2025年07月23日周三23:41分浏览量862936， 回复3977，热度288
截止2025年07月24日周四23:00分浏览量865336， 回复3979，热度288