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

白新岭

截止2025年04月01日周二22:38分浏览量623424， 回复3509，热度269
截止2025年04月02日周三11:27分浏览量623587， 回复3510，热度269

白新岭

截止2025年04月01日周二22:38分浏览量623424， 回复3509，热度269
截止2025年04月02日周三24:03分浏览量623758， 回复3511，热度269

白新岭

截止2025年04月02日周三24:03分浏览量623758， 回复3511，热度269
截止2025年04月03日周四09:31分浏览量623894， 回复3512，热度269

白新岭

截止2025年04月02日周三24:03分浏览量623758， 回复3511，热度269
截止2025年04月03日周四23:10分浏览量624171， 回复3513，热度269

白新岭

截止2025年04月03日周四23:10分浏览量624171， 回复3513，热度269
截止2025年04月04日周五09:29分浏览量624320， 回复3514，热度269

白新岭

截止2025年04月03日周四23:10分浏览量624171， 回复3513，热度269
截止2025年04月04日周五22:26分浏览量624570， 回复3515，热度269

白新岭

截止2025年04月04日周五22:26分浏览量624570， 回复3515，热度269
截止2025年04月05日周六09:06分浏览量624753， 回复3516，热度269

白新岭

截止2025年04月04日周五22:26分浏览量624570， 回复3515，热度269
截止2025年04月05日周六23:31分浏览量625012， 回复3517，热度269

白新岭

截止2025年04月05日周六23:31分浏览量625012， 回复3517，热度269
截止2025年04月06日周日13:40分浏览量625316， 回复3518，热度269

白新岭

SELECT 1
USE D:\素数式系数\素数式23.DBF ALIAS 素数式
SELECT 2
USE D:\素数式系数\最密k生素数间距.DBF ALIAS 间距
kssj=SECONDS()
FOR h=1 TO 100
    @ 5,12 say h
    k=h+1
    SELECT  1
    GO 1
    E=1000
      For i=1 to 1658880
     
      SELECT  1     &&打开盛放素数式的表
      jl=recno()
   
      PUBLIC A
      A=sss23
      SKIP h
      PUBLIC B
      B=sss23
      cj1=B-A  &&求前后两个素数的差值
      IF E>cj1
      E=cj1
      ELSE E<=cj1
   
      E=E
         
      ENDIF
      SELECT 1
      GO jl+1
      ENDFOR
      SELECT 2
      APPEND BLANK     &&增加一条空记录
      REPLACE ksss WITH k &&将k值付给ksss
      REPLACE jj WITH E
      
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")