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

白新岭

截止2025年06月30日周一21:37分浏览量804776， 回复3879，热度282
截止2025年07月01日周二09:13分浏览量805733， 回复3880，热度282

白新岭

截止2025年06月30日周一21:37分浏览量804776， 回复3879，热度282
截止2025年07月01日周二22:22分浏览量806729， 回复3881，热度282

白新岭

截止2025年07月01日周二22:22分浏览量806729， 回复3881，热度282
截止2025年07月02日周三10:17分浏览量807653， 回复3882，热度282

白新岭

截止2025年07月01日周二22:22分浏览量806729， 回复3881，热度282
截止2025年07月02日周三15:48分浏览量808050， 回复3883，热度282

白新岭

截止2025年07月01日周二22:22分浏览量806729， 回复3881，热度282
截止2025年07月02日周三22:44分浏览量808501， 回复3884，热度282

白新岭

截止2025年07月02日周三22:44分浏览量808501， 回复3884，热度282
截止2025年07月03日周四09:27分浏览量809460， 回复3885，热度282

白新岭

截止2025年07月02日周三22:44分浏览量808501， 回复3884，热度282
截止2025年07月03日周四16:17分浏览量810017， 回复3886，热度282

白新岭

截止2025年07月02日周三22:44分浏览量808501， 回复3884，热度282
截止2025年07月03日周四21:18分浏览量810481， 回复3887，热度282

白新岭

截止2025年07月03日周四21:18分浏览量810481， 回复3887，热度282
截止2025年07月04日周五10:13分浏览量811935， 回复3888，热度282

白新岭

SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有的.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 69
      @ 3,6 say i
        fw=i*19399380
        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,"运行时间提示")