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

白新岭 · 发表于 2025-7-30 18:44

截止2025年07月29日周二22:34分浏览量878487，回复3998，热度288
截止2025年07月30日周三18:44分浏览量880931，回复4000，热度288

白新岭 · 发表于 2025-7-30 23:22

截止2025年07月29日周二22:34分浏览量878487，回复3998，热度288
截止2025年07月30日周三23:22分浏览量881145，回复4001，热度288

白新岭 · 发表于 2025-7-31 09:25

截止2025年07月30日周三23:22分浏览量881145，回复4001，热度288
截止2025年07月31日周四09:25分浏览量882267，回复4002，热度288

白新岭 · 发表于 2025-7-31 23:14

截止2025年07月30日周三23:22分浏览量881145，回复4001，热度288
截止2025年07月31日周四23:13分浏览量883496，回复4003，热度288

白新岭 · 发表于 2025-8-1 09:44

截止2025年07月31日周四23:13分浏览量883496，回复4003，热度288
截止2025年08月01日周五09:43分浏览量884361，回复4004，热度288

白新岭 · 发表于 2025-8-1 23:41

截止2025年07月31日周四23:13分浏览量883496，回复4003，热度288
截止2025年08月01日周五23:41分浏览量885281，回复4005，热度288

白新岭 · 发表于 2025-8-2 09:29

截止2025年08月01日周五23:41分浏览量885281，回复4005，热度288
截止2025年08月02日周六09:28分浏览量887211，回复4006，热度288

白新岭 · 发表于 2025-8-2 10:24

SELECT 1
  USE d:\最密三生素数文件\素数表.DBF ALIAS 素数表
  SELECT 2
  USE d:\最密三生素数文件\六生成元29.DBF ALIAS 六生成元29
  SELECT 3
  USE d:\最密三生素数文件\对称6素.DBF ALIAS 对称6素表
   kssj=SECONDS()                   &&取出开始时间
  For i=15 to 16
      @ 3,6 say i
      SELECT 2
   go 1
   SELECT 2
for m=1 to 1956955
   @ 6,12 say m
   k=scy29
   N=k+6469693230*(i-1)
      Kf=INT(SQRT(N))    &&求出奇数的开方根
      SELECT  1          &&打开素数表
      LOCATE FOR 素数>=kf    &&根据开方根,查找最大素数
      DO CASE
            CASE EOF()       &&如果超出素数表最后一条记录
                     GO BOTTOM
            CASE 素数>kf    &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
                     SKIP -1
      ENDCASE
      SSS=RECNO() &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
      GO 11          &&从第一条记录开始读取素数(3)
      FOR j=1 TO SSS-10    &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
            qmz=MOD(N,素数) &&以读取的素数为条件,对被判断值求模【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
            IF qmz=0 OR qmz=4  OR qmz=6 OR qmz=10 OR qmz=12 OR qmz=16
                     EXIT
            ENDIF
            SKIP          &&素数表指针向下移动一个
      ENDFOR
      IF j>sss-10
            SELECT  3  &&打开盛放素数的表
            APPEND BLANK                      &&增加一条空记录
            REPLACE dc6s WITH N          &&将N值付给素数
      ENDIF
      SELECT 2
      skip
   ENDFOR
ENDFOR
      =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用生成元制作最密6生素数

白新岭 · 发表于 2025-8-2 16:14

截止2025年08月01日周五23:41分浏览量885281，回复4005，热度288
截止2025年08月02日周六14:13分浏览量887430，回复4008，热度288

白新岭 · 发表于 2025-8-2 23:55

截止2025年08月01日周五23:41分浏览量885281，回复4005，热度288
截止2025年08月02日周六23:55分浏览量887927，回复4009，热度288

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