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

独木星空谁 · 发表于 2022-1-23 20:37

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

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

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  2446
            @ 15,22 say k1
            A=二素6
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  2446
               jl2=recno()
               B=二素6
               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,"运行时间提示")

独木星空谁 · 发表于 2022-1-24 07:59

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

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

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  1214
            @ 15,22 say k1
            A=二素4
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  1214
               jl2=recno()
               B=二素4
               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,"运行时间提示")

独木星空谁 · 发表于 2022-1-24 20:15

SELECT 1
USE g:\一加m问题\孪中表十万.DBF ALIAS 孪中表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

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

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  1222
            @ 15,22 say k1
            A=孪中
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  1222
               jl2=recno()
               B=孪中
               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,"运行时间提示")

独木星空谁 · 发表于 2022-1-25 20:06

SELECT 1
USE g:\一加m问题\素数表十万.DBF ALIAS 素数表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表一加1周五"

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  9
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 9
               jl2=recno()
               B=素数
               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,"运行时间提示")

独木星空谁 · 发表于 2022-1-25 20:07

SELECT 1
USE g:\一加m问题\素数表十万.DBF ALIAS 素数表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表一加1周七"

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  45
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 45
               jl2=recno()
               B=素数
               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,"运行时间提示")

独木星空谁 · 发表于 2022-1-25 20:09

SELECT 1
USE g:\一加m问题\素数表十万.DBF ALIAS 素数表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表一加1周双幺"

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  342
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 342
               jl2=recno()
               B=素数
               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,"运行时间提示")

独木星空谁 · 发表于 2022-1-25 20:11

SELECT 1
USE g:\一加m问题\素数表十万.DBF ALIAS 素数表
SELECT 3
USE g:\一加m问题\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="偶数周期表一加1周幺三"

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  3247
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 3247
               jl2=recno()
               B=素数
               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,"运行时间提示")

白新岭 · 发表于 2022-1-27 11:01

SELECT 1
USE d:\k生素数串\四生串13.DBF ALIAS 四生串13
SELECT 2
USE d:\k生素数串\四生串17.DBF ALIAS 四生串17

kssj=SECONDS()
FOR i=1 TO 17
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  189
               A=四串13
            && jl1=recno()
               s=A+(i-1)*30030
               IF MOD(s,17)=0 OR MOD(s,17)=2 OR MOD(s,17)=6  OR MOD(s,17)=8
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 四串17 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-1-27 11:04

SELECT 1
USE d:\k生素数串\四生串17.DBF ALIAS 四生串17
SELECT 2
USE d:\k生素数串\四生串19.DBF ALIAS 四生串19

kssj=SECONDS()
FOR i=1 TO 19
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  2457
               A=四串17
            && jl1=recno()
               s=A+(i-1)*510510
               IF MOD(s,19)=0 OR MOD(s,19)=2 OR MOD(s,19)=6  OR MOD(s,19)=8
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 四串19 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-1-27 11:10

SELECT 1
USE d:\k生素数串\四生串19.DBF ALIAS 四生串19
SELECT 2
USE d:\k生素数串\四生串23.DBF ALIAS 四生串23

kssj=SECONDS()
FOR i=1 TO 23
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  36855
               A=四串19
            && jl1=recno()
               s=A+(i-1)*9699690
               IF MOD(s,23)=0 OR MOD(s,23)=2 OR MOD(s,23)=6  OR MOD(s,23)=8
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 四串23 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

		自动登录	找回密码
密码			注册