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

白新岭

截止2025年05月19日周一23:53分浏览量702428， 回复3629，热度276
截止2025年05月20日周二07:23分浏览量703225， 回复3630，热度276

独木星空谁

截止2025年05月19日周一23:53分浏览量702428， 回复3629，热度276
截止2025年05月20日周二07:30分浏览量703243， 回复3631，热度276

独木星空谁

SELECT 1
USE D:\素数式新\素数式19.DBF ALIAS 素数式
SELECT 2
USE D:\素数式新\最密k生素数间距19.DBF ALIAS 间距
kssj=SECONDS()
FOR h=10 TO 15
    @ 5,12 say h
    k=h+1
    SELECT  1
    GO 1
    E=1000
      For i=1 to 1658760
     
      SELECT  1     &&打开盛放素数式的表
      jl=recno()
   
      PUBLIC A
      A=ss19
      SKIP h
      PUBLIC B
      B=ss19
      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 ksss19  WITH k &&将k值付给ksss
      REPLACE jj19  WITH E
      
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2025年05月19日周一23:53分浏览量702428， 回复3629，热度276
截止2025年05月20日周二09:09分浏览量703379， 回复3633，热度276

白新岭

截止2025年05月19日周一23:53分浏览量702428， 回复3629，热度276
截止2025年05月20日周二21:24分浏览量704502， 回复3634，热度276

白新岭

截止2025年05月20日周二21:24分浏览量704502， 回复3634，热度276
截止2025年05月21日周三17:46分浏览量706716， 回复3635，热度276

独舟星海

截止2025年05月20日周二21:24分浏览量704502， 回复3634，热度276
截止2025年05月21日周三18:28分浏览量706770， 回复3636，热度276

独木星空谁

截止2025年05月20日周二21:24分浏览量704502， 回复3634，热度276
截止2025年05月21日周三20:17分浏览量706982， 回复3637，热度276

白新岭

截止2025年05月20日周二21:24分浏览量704502， 回复3634，热度276
截止2025年05月21日周三22:30分浏览量707130， 回复3638，热度276

白新岭

截止2025年05月21日周三22:30分浏览量707130， 回复3638，热度276
截止2025年05月22日周四08:48分浏览量707793， 回复3639，热度276