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

白新岭

截止2025年03月27日周四23:07分浏览量622456， 回复3489，热度266
截止2025年03月28日周五09:35分浏览量622474， 回复3490，热度266

白新岭

截止2025年03月27日周四23:07分浏览量622456， 回复3489，热度266
截止2025年03月28日周五22:28分浏览量622584， 回复3491，热度266

白新岭

SELECT 1
USE D:\素数式系数\二生素数表名称.DBF ALIAS 二素表名
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 59
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    bmc=表名称
               && mc="&bmc."
    zdm=表字段
   
        SELECT 2
        USE "&bmc."
        SELECT 3
         USE D:\素数式系数\二生素数统计表.DBF ALIAS 统计表
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 表索引 WITH "&bmc"      &&将N值付给素数式
         SELECT 2
            FOR j=1 TO 9   
            k=10^j
            h=j
                       && PUBLIC zd
            SELECT 2
            COUNT ALL FOR &zdm.<k TO tj
            cc="十"+transform(h)+"次"
                          
                          SELECT 3
                        
                          REPLACE &cc. WITH tj        &&将N值付给素数式
                          
           ENDFOR
       SELECT 3
       SKIP
      
   SELECT 1
   GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2025年03月28日周五22:28分浏览量622584， 回复3491，热度266
截止2025年03月29日周六09:07分浏览量622667， 回复3493，热度266

白新岭

ELECT 1
USE D:\素数式系数\素数式23.DBF ALIAS 素数式
kssj=SECONDS()
SELECT  1
GO 1
E=1000
For i=1 to 200000
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
   
    PUBLIC A
    A=sss23
    SKIP 9
    PUBLIC B
    B=sss23
    cj1=B-A  &&求前后两个素数的差值
    IF E>cj1
    E=cj1
    ELSE E<=cj1
   
    E=E
         
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
   ?E
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
最小值

白新岭

截止2025年03月28日周五22:28分浏览量622584， 回复3491，热度266
截止2025年03月29日周六21:16分浏览量622755， 回复3495，热度266

白新岭

截止2025年03月29日周六21:16分浏览量622755， 回复3495，热度266
截止2025年03月30日周日08:52分浏览量622844， 回复3496，热度266

白新岭

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg4.DBF ALIAS 二生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=素数
    SKIP 1
    PUBLIC B
    B=素数
    cj1=B-A  &&求前后两个素数的差值
    IF cj1=4
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE ers4 WITH A+2        &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg24.DBF ALIAS 二生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=素数
    SKIP 1
    PUBLIC B
    B=素数
    cj1=B-A  &&求前后两个素数的差值
    IF cj1=24
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE ers24 WITH A+12   &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg24.DBF ALIAS 三生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=素数
    SKIP 2
    PUBLIC B
    B=素数
    cj1=B-A  &&求前后两个素数的差值
    IF cj1=24
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE sss24 WITH A+12    &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")