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

白新岭

截止2025年07月04日周五23:03分浏览量813836， 回复3897，热度282
截止2025年07月05日周六16:34分浏览量815506， 回复3900，热度282

白新岭

截止2025年07月04日周五23:03分浏览量813836， 回复3897，热度282
截止2025年07月05日周六23:38分浏览量816193， 回复3901，热度282
浏览量816193分成8--16--19--3，而今天大乐透8,12,16,19,35（16+19）--6,9

白新岭

截止2025年07月05日周六23:38分浏览量816193， 回复3901，热度282
截止2025年07月06日周日08:56分浏览量816841， 回复3902，热度282

独木星空谁

截止2025年07月05日周六23:38分浏览量816193， 回复3901，热度282
截止2025年07月06日周日09:03分浏览量816847， 回复3903，热度283

独舟星海

截止2025年07月05日周六23:38分浏览量816193， 回复3901，热度282
截止2025年07月06日周日09:10分浏览量816861， 回复3904，热度284

白新岭

截止2025年07月05日周六23:38分浏览量816193， 回复3901，热度282
截止2025年07月06日周日09:15分浏览量816863， 回复3905，热度285

白新岭

SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为30.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模30.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为180.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模30.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为180.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模180.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2025年07月05日周六23:38分浏览量816193， 回复3901，热度282
截止2025年07月06日周日17:27分浏览量817402， 回复3909，热度285