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

白新岭

截止2025年04月27日周日23:43分浏览量660081， 回复3577，热度272
截止2025年04月28日周一23:02分浏览量661926， 回复3580，热度272

白新岭

SELECT 1
USE D:\素数式系数\素数式23.DBF ALIAS 素数式
SELECT 2
USE D:\素数式系数\最密k生素数间距23.DBF ALIAS 间距
kssj=SECONDS()
FOR h=85 TO 87
    @ 5,12 say h
    k=h+1
    SELECT  1
    GO 1
    E=1000
      For i=1 to 36495250
     
      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 ksss23  WITH k &&将k值付给ksss
      REPLACE jj23  WITH E
      
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是在素数式23中寻找最密k生素数式的程序（只是找最小值）

白新岭

截止2025年04月28日周一23:02分浏览量661926， 回复3580，热度272
截止2025年04月29日周二08:02分浏览量662691， 回复3582，热度272

白新岭

截止2025年04月28日周一23:02分浏览量661926， 回复3580，热度272
截止2025年04月29日周二22:25分浏览量663905， 回复3583，热度272

白新岭

截止2025年04月29日周二22:25分浏览量663905， 回复3583，热度272
截止2025年04月30日周三08:30分浏览量664676， 回复3584，热度272

白新岭

截止2025年04月29日周二22:25分浏览量663905， 回复3583，热度272
截止2025年04月30日周三23:47分浏览量665282， 回复3585，热度272

白新岭

截止2025年04月30日周三23:47分浏览量665282， 回复3585，热度272
截止2025年05月01日周四07:53分浏览量665766， 回复3586，热度272

白新岭

截止2025年04月30日周三23:47分浏览量665282， 回复3585，热度272
截止2025年05月01日周四15:49分浏览量666567， 回复3587，热度272
浏览量665766，浏览量只是顺序不同，七星彩，20250502日

白新岭

截止2025年04月30日周三23:47分浏览量665282， 回复3585，热度272
截止2025年05月01日周四22:31分浏览量666905， 回复3588，热度272

白新岭

截止2025年05月01日周四22:31分浏览量666905， 回复3588，热度272
截止2025年05月02日周五21:33分浏览量669646， 回复3589，热度272