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

白新岭

截止2025年05月29日周四23:46分浏览量726193， 回复3679，热度276
截止2025年05月30日周五07:07分浏览量727113， 回复3680，热度276

白新岭

截止2025年05月30日周五07:07分浏览量727113， 回复3680，热度276
浏览量727113重点关注，20250530日周五，七星彩

白新岭

截止2025年05月29日周四23:46分浏览量726193， 回复3679，热度276
截止2025年05月30日周五16:52分浏览量728021， 回复3682，热度276

白新岭

截止2025年05月29日周四23:46分浏览量726193， 回复3679，热度276
截止2025年05月30日周五21:19分浏览量728380， 回复3683，热度276

白新岭

截止2025年05月29日周四23:46分浏览量726193， 回复3679，热度276
截止2025年05月30日周五23:59分浏览量728568， 回复3684，热度276

白新岭

截止2025年05月30日周五23:59分浏览量728568， 回复3684，热度276
截止2025年05月31日周六09:17分浏览量729341， 回复3685，热度276

白新岭

SELECT 1
USE D:\素数式系数\四生成元至23.DBF  ALIAS 四生元参照表
SELECT 2
USE D:\素数式系数\素数13万.DBF ALIAS 素数表十三万
SELECT 3
USE D:\素数式系数\最密四生素数.DBF ALIAS 四生素数
kssj=SECONDS()                      &&取出开始时间
    FOR i=1 TO 1
     @22,20 SAY i
     SELECT 1
     GO 1
     FOR k=1 TO 700245
     ly23=四中23+4
     bpz=ly23+(i-1)*223092870 &&给被判断值置数，以循环值做变量。
     Kf=INT(SQRT(bpz))                   &&求出被判断值的开方根
        SELECT 2                     &&打开素数表
        LOCATE FOR 素数>=kf                 &&根据开方根,查找最大素数
        DO CASE
        CASE EOF()                          &&如果超出素数表最后一条记录
        GO BOTTOM
        CASE 素数>kf                        &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
        SKIP -1
        ENDCASE
        SSS=RECNO()                         &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
        GO 10
                                 &&从第二条记录开始读取素数(3)
        FOR j=1 TO SSS-9
        ys=MOD(bpz,素数)                    &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
        IF ys=0 OR ys=2 OR ys=6 OR ys=8 && OR ys=12 OR ys=16 OR ys=MOD(36,素数) OR ys=MOD(38,素数) OR ys=MOD(120,素数) OR ys=MOD(122,素数) OR ys=MOD(126,素数) OR ys=MOD(128,素数)
        EXIT                                &&因为符合条件,则做完相应工作后跳出内循环
        ENDIF
        SKIP                               &&素数表指针向下移动一个
        ENDFOR
        IF j>sss-9
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 四素 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用生成元及素数表制作最密四生素数

白新岭

截止2025年05月30日周五23:59分浏览量728568， 回复3684，热度276
截止2025年05月31日周六22:09分浏览量731888， 回复3687，热度276
浏览量731888，后边加9，构成七星彩731888--9,6月1日五月初六周日

白新岭

截止2025年05月30日周五23:59分浏览量728568， 回复3684，热度276
截止2025年05月31日周六24:00分浏览量732041， 回复3688，热度276

白新岭

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