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

白新岭

截止2025年05月13日周二21:06分浏览量687393， 回复3608，热度275
截止2025年05月14日周三17:39分浏览量688869， 回复3610，热度275

白新岭

截止2025年05月13日周二21:06分浏览量687393， 回复3608，热度275
截止2025年05月14日周三22:16分浏览量689101， 回复3611，热度275

白新岭

截止2025年05月14日周三22:16分浏览量689101， 回复3611，热度275
截止2025年05月15日周四09:38分浏览量690539， 回复3612，热度275

白新岭

截止2025年05月14日周三22:16分浏览量689101， 回复3611，热度275
截止2025年05月15日周四21:22分浏览量692315， 回复3613，热度275

白新岭

截止2025年05月15日周四21:22分浏览量692315， 回复3613，热度275
截止2025年05月16日周五09:58分浏览量693386， 回复3614，热度275

白新岭

截止2025年05月15日周四21:22分浏览量692315， 回复3613，热度275
截止2025年05月16日周五21:55分浏览量694341， 回复3615，热度275

白新岭

截止2025年05月16日周五21:55分浏览量694341， 回复3615，热度275
截止2025年05月17日周六09:06分浏览量695179， 回复3616，热度275

白新岭

截止2025年05月16日周五21:55分浏览量694341， 回复3615，热度275
截止2025年05月17日周六23:02分浏览量696348， 回复3617，热度275

白新岭

SELECT 1
USE D:\素数式系数\素数式23.DBF ALIAS 素数式
SELECT 2
USE D:\素数式系数\最密k生素数间距23.DBF ALIAS 间距
kssj=SECONDS()
FOR h=91 TO 93
    @ 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,"运行时间提示")
已经计算到93了，快要完成任务了

白新岭

截止2025年05月17日周六23:02分浏览量696348， 回复3617，热度275
截止2025年05月18日周日08:45分浏览量698218， 回复361*，热度275