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

独木星空谁

截止2022年3月3日周四农历二月初一上午8:02分
热度71，回复1342，浏览量47096

独木星空谁

SELECT 1
USE g:\一加m问题\二生素数d66.DBF ALIAS 二素中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表二中自加d66"

For i=1 TO 1
       @ 5,12 say i
       wd=bwjm+ALLTRIM(STR(i))
           SELECT 3
           DELETE ALL
           PACK      
           SELECT 1
            GO 1
                FOR k1=1  TO  2765
                @ 15,22 say k1
                A=二素66
               jl1=recno()
                  SELECT  1
                  GO 1
                  For k2=1 to 2765
                  jl2=recno()
                  B=二素66
                 C=A+B
                  SELECT 3
                  APPEND BLANK   
                  REPLACE 偶数 WITH C   
                  SELECT 1
                  GO jl2+1
                  ENDFOR
                SELECT 1
                GO jl1+1
              ENDFOR   
         
        SELECT 3
        USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       USE g:\一加m问题\偶数表.dbf && 设源表的名称为"表1"
       P=''
       FOR K=1 TO FCOUNT()
       P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

       SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF g:\一加m问题\&wd
        
       USE IN &wd
      
     ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

SELECT 1
USE g:\一加m问题\二生素数d68.DBF ALIAS 二素中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表二中自加d68"

For i=1 TO 1
       @ 5,12 say i
       wd=bwjm+ALLTRIM(STR(i))
           SELECT 3
           DELETE ALL
           PACK      
           SELECT 1
            GO 1
                FOR k1=1  TO  1302
                @ 15,22 say k1
                A=二素68
               jl1=recno()
                  SELECT  1
                  GO 1
                  For k2=1 to 1302
                  jl2=recno()
                  B=二素68
                 C=A+B
                  SELECT 3
                  APPEND BLANK   
                  REPLACE 偶数 WITH C   
                  SELECT 1
                  GO jl2+1
                  ENDFOR
                SELECT 1
                GO jl1+1
              ENDFOR   
         
        SELECT 3
        USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       USE g:\一加m问题\偶数表.dbf && 设源表的名称为"表1"
       P=''
       FOR K=1 TO FCOUNT()
       P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

       SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF g:\一加m问题\&wd
        
       USE IN &wd
      
     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:\素数表文件\最密三生24.DBF ALIAS 三素表
kssj=SECONDS()
For i=1 to 9591
       @ 5,12 say i
     SELECT  1     &&打开盛放素数式的表
    jl=recno()
     PUBLIC A
     A=素数
    &&  COUNT NEXT 28 FOR 素数-A=56 TO tj
    SKIP
     PUBLIC B
     B=素数
     SKIP
     PUBLIC C
     C=素数
     IF B-A=2 AND C-B=4
          SELECT 2
          APPEND BLANK     &&增加一条空记录
         REPLACE 三素 WITH A+3  &&将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:\素数表文件\最密三生24.DBF ALIAS 三素表
SELECT 2
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 3
USE d:\素数表文件\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="一素加三中"

For i=1 TO 1
        @ 5,12 say i
        wd=bwjm+ALLTRIM(STR(i))
            SELECT 3
            DELETE ALL
            PACK      
            SELECT 1
             GO 1
                 FOR k1=1  TO  259
                 @ 15,22 say k1
                 A=三素
                jl1=recno()
                   SELECT  2
                   GO 1
                   For k2=1 to 9591
                   jl2=recno()
                   B=素数
                  C=A+B
                   SELECT 3
                   APPEND BLANK   
                   REPLACE 偶数 WITH C   
                   SELECT 2
                   GO jl2+1
                   ENDFOR
                 SELECT 1
                 GO jl1+1
               ENDFOR   
           
         SELECT 3
         USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
        USE d:\素数表文件\偶数表.dbf && 设源表的名称为"表1"
        P=''
        FOR K=1 TO FCOUNT()
        P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

        SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF d:\素数表文件\&wd
         
        USE IN &wd
        
      ENDFOR
      =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

SELECT 1
USE g:\一加m问题\二生素数d70.DBF ALIAS 二素中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表二中自加d70"

For i=1 TO 1
       @ 5,12 say i
       wd=bwjm+ALLTRIM(STR(i))
           SELECT 3
           DELETE ALL
           PACK      
           SELECT 1
            GO 1
                FOR k1=1  TO  1984
                @ 15,22 say k1
                A=二素70
               jl1=recno()
                  SELECT  1
                  GO 1
                  For k2=1 to 1984
                  jl2=recno()
                  B=二素70
                 C=A+B
                  SELECT 3
                  APPEND BLANK   
                  REPLACE 偶数 WITH C   
                  SELECT 1
                  GO jl2+1
                  ENDFOR
                SELECT 1
                GO jl1+1
              ENDFOR   
         
        SELECT 3
        USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       USE g:\一加m问题\偶数表.dbf && 设源表的名称为"表1"
       P=''
       FOR K=1 TO FCOUNT()
       P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

       SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF g:\一加m问题\&wd
        
       USE IN &wd
      
     ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

SELECT 1
USE g:\一加m问题\二生素数d62.DBF ALIAS 二素中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="二中自相减d62"

For i=1 TO 1
       @ 5,12 say i
       wd=bwjm+ALLTRIM(STR(i))
     SELECT 3
     DELETE ALL
     PACK         
               SELECT 1
                GO 1
                FOR k1=1  TO  1285
                @ 15,22 say k1
                A=二素62
               jl1=recno()
                  SELECT  1
                  GO 1
                  For k2=1 to  1285
                  jl2=recno()
                  B=二素62
                  C=A-B      && C=ABS(A-B)
                  SELECT 3
                  APPEND BLANK   
                  REPLACE 偶数 WITH C   
                  SELECT 1
                  GO jl2+1
                  ENDFOR
                SELECT 1
                GO jl1+1
              ENDFOR   
         
        SELECT 3
        USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       USE g:\一加m问题\偶数表.dbf && 设源表的名称为"表1"
       P=''
       FOR K=1 TO FCOUNT()
       P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

       SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF g:\一加m问题\&wd
        
       USE IN &wd
      
     ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

SELECT 1
USE g:\一加m问题\二生素数d64.DBF ALIAS 二素中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="二中自相减d64"

For i=1 TO 1
       @ 5,12 say i
       wd=bwjm+ALLTRIM(STR(i))
     SELECT 3
     DELETE ALL
     PACK         
               SELECT 1
                GO 1
                FOR k1=1  TO  1253
                @ 15,22 say k1
                A=二素64
               jl1=recno()
                  SELECT  1
                  GO 1
                  For k2=1 to  1253
                  jl2=recno()
                  B=二素64
                  C=A-B      && C=ABS(A-B)
                  SELECT 3
                  APPEND BLANK   
                  REPLACE 偶数 WITH C   
                  SELECT 1
                  GO jl2+1
                  ENDFOR
                SELECT 1
                GO jl1+1
              ENDFOR   
         
        SELECT 3
        USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       USE g:\一加m问题\偶数表.dbf && 设源表的名称为"表1"
       P=''
       FOR K=1 TO FCOUNT()
       P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

       SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF g:\一加m问题\&wd
        
       USE IN &wd
      
     ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

?RECCOUNT()
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
DO g:\一加m问题\二素中项自身相减统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
ADD TABLE g:\一加m问题\二中自相减d561.dbf
USE 二中自相减d561 AGAIN IN 0
SELECT 二中自相减d561
BROWSE LAST
COPY TO g:\一加m问题\二中自减d56表.xlsx.XLS FOR 偶数>=0 TYPE XL5
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
USE 二生素数d58 AGAIN IN 0
SELECT 二生素数d58
BROWSE LAST
?RECCOUNT()
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
DO g:\一加m问题\二素中项自身相减统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
ADD TABLE g:\一加m问题\二中自相减d581.dbf
USE 二中自相减d581 AGAIN IN 0
SELECT 二中自相减d581
BROWSE LAST
COPY TO g:\一加m问题\二中自减d58表.xlsx.XLS FOR 二中自相减d581.偶数>=0 TYPE XL5
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
USE 二生素数d60 AGAIN IN 0
SELECT 二生素数d60
BROWSE LAST
?RECCOUNT()
USE
DO g:\一加m问题\二素中项自身相减统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
ADD TABLE g:\一加m问题\二中自相减d5601.dbf
USE 二中自相减d5601 AGAIN IN 0
SELECT 二中自相减d5601
BROWSE LAST
COPY TO g:\一加m问题\二中自减d60表.xlsx.XLS FOR 偶数>=0 TYPE XL5
USE
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
MODIFY COMMAND g:\一加m问题\在素数表中搜寻二生素数.prg AS 936
DO g:\一加m问题\在素数表中搜寻二生素数.prg
MODIFY COMMAND g:\一加m问题\在素数表中搜寻二生素数.prg AS 936
DO g:\一加m问题\在素数表中搜寻二生素数.prg
MODIFY COMMAND g:\一加m问题\在素数表中搜寻二生素数.prg AS 936
DO g:\一加m问题\在素数表中搜寻二生素数.prg
MODIFY COMMAND g:\一加m问题\在素数表中搜寻二生素数.prg AS 936
DO g:\一加m问题\在素数表中搜寻二生素数.prg
MODIFY COMMAND g:\一加m问题\在素数表中搜寻二生素数.prg AS 936
DO g:\一加m问题\在素数表中搜寻二生素数.prg
MODIFY COMMAND g:\一加m问题\在素数表中搜寻二生素数.prg AS 936
SELECT 二素表
BROWSE LAST
?RECCOUNT()
USE
CLEAR
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
USE 二生素数d62 AGAIN IN 0
SELECT 二生素数d62
BROWSE LAST
?RECCOUNT()
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
DO g:\一加m问题\二素中项自身相加统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
USE 二生素数d62 AGAIN IN 0
SELECT 二生素数d62
BROWSE LAST
?RECCOUNT()
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
ADD TABLE g:\一加m问题\偶数周期表二中自加d621.dbf
USE 偶数周期表二中自加d621 AGAIN IN 0
SELECT 偶数周期表二中自加d621
BROWSE LAST
COPY TO g:\一加m问题\二加二中62表.xls TYPE XL5
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
USE 二生素数d64 AGAIN IN 0
SELECT 二生素数d64
BROWSE LAST
?RECCOUNT()
DELETE NEXT 1
PACK
SELECT 二生素数d64
BROWSE LAST
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
DO g:\一加m问题\二素中项自身相加统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
ADD TABLE g:\一加m问题\偶数周期表二中自加d641.dbf
USE 偶数周期表二中自加d641 AGAIN IN 0
SELECT 偶数周期表二中自加d641
BROWSE LAST
COPY TO g:\一加m问题\二加二中d64表.xls TYPE XL5
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
USE 二生素数d66 AGAIN IN 0
SELECT 二生素数d66
BROWSE LAST
?RECCOUNT()
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
DO g:\一加m问题\二素中项自身相加统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
ADD TABLE g:\一加m问题\偶数周期表二中自加d661.dbf
USE 偶数周期表二中自加d661 AGAIN IN 0
SELECT 偶数周期表二中自加d661
BROWSE LAST
COPY TO g:\一加m问题\二加二中d66表.xls TYPE XL5
COPY TO g:\一加m问题\二加二中d66表续.xls REST TYPE XL5
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
USE 二生素数d70 AGAIN IN 0
SELECT 二生素数d70
BROWSE LAST
?RECCOUNT()
DELETE NEXT 1
PACK
SELECT 二生素数d70
BROWSE LAST
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
DO g:\一加m问题\二素中项自身相加统计.prg
SELECT 二素中表
BROWSE LAST
GO 1
?RECCOUNT()
USE 二生素数d70 AGAIN IN 0
SELECT 二生素数d70
BROWSE LAST
?RECCOUNT()
USE
CLEAR
DELETE NEXT 1
PACK
SELECT 二素中表
BROWSE LAST
?RECCOUNT()
GO bottom
GO 1
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
DO g:\一加m问题\二素中项自身相加统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
ADD TABLE g:\一加m问题\偶数周期表二中自加d681.dbf
USE 偶数周期表二中自加d681 AGAIN IN 0
SELECT 偶数周期表二中自加d681
BROWSE LAST
COPY TO g:\一加m问题\二加二中d68表.xls TYPE XL5
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
USE 二生素数d70 AGAIN IN 0
SELECT 二生素数d70
BROWSE LAST
?RECCOUNT()
USE
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
DO g:\一加m问题\二素中项自身相加统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相加统计.prg AS 936
ADD TABLE g:\一加m问题\偶数周期表二中自加d701.dbf
USE 偶数周期表二中自加d701 AGAIN IN 0
SELECT 偶数周期表二中自加d701
BROWSE LAST
COPY TO g:\一加m问题\二加二中d70表.xls TYPE XL5
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
USE 二生素数d62 AGAIN IN 0
SELECT 二生素数d62
BROWSE LAST
?RECCOUNT()
USE
DO g:\一加m问题\二素中项自身相减统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
ADD TABLE g:\一加m问题\二中自相减d621.dbf
USE 偶数周期表二中自加d621 AGAIN IN 0
SELECT 偶数周期表二中自加d621
BROWSE LAST
USE
USE 二中自相减d5601 EXCLUSIVE IN 0
SELECT 二中自相减d5601
MODIFY STRUCTURE
USE 二中自相减d621 AGAIN IN 0
SELECT 二中自相减d621
BROWSE LAST
COPY TO g:\一加m问题\二中自减d62表.xlsx.XLS TYPE XL5
USE
MODIFY PROJECT g:\一加m问题\一加m项目.pjx
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
USE 二生素数d64 AGAIN IN 0
SELECT 二生素数d64
BROWSE LAST
?RECCOUNT()
USE
DO g:\一加m问题\二素中项自身相减统计.prg
MODIFY COMMAND g:\一加m问题\二素中项自身相减统计.prg AS 936
ADD TABLE g:\一加m问题\二中自相减d641.dbf
USE 二中自相减d641 AGAIN IN 0
SELECT 二中自相减d641
BROWSE LAST
COPY TO g:\一加m问题\二中自减d64表.xlsx.XLS FOR 偶数>=0 TYPE XL5
USE
操作记录

白新岭

SELECT 1
USE g:\一加m问题\二生素数d66.DBF ALIAS 二素中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="二中自相减d66"

For i=1 TO 1
       @ 5,12 say i
       wd=bwjm+ALLTRIM(STR(i))
     SELECT 3
     DELETE ALL
     PACK         
               SELECT 1
                GO 1
                FOR k1=1  TO  2765
                @ 15,22 say k1
                A=二素66
               jl1=recno()
                  SELECT  1
                  GO 1
                  For k2=1 to  2765
                  jl2=recno()
                  B=二素66
                  C=A-B      && C=ABS(A-B)
                  SELECT 3
                  APPEND BLANK   
                  REPLACE 偶数 WITH C   
                  SELECT 1
                  GO jl2+1
                  ENDFOR
                SELECT 1
                GO jl1+1
              ENDFOR   
         
        SELECT 3
        USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       USE g:\一加m问题\偶数表.dbf && 设源表的名称为"表1"
       P=''
       FOR K=1 TO FCOUNT()
       P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

       SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF g:\一加m问题\&wd
        
       USE IN &wd
      
     ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")