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

白新岭 · 发表于 2022-1-23 14:59

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千6代"

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  1600
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1600
               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-23 15:01

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千7代"

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  1700
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1700
               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-23 15:02

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千8代"

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  1800
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1800
               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-23 15:04

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千9代"

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  1900
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1900
               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-23 15:05

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千10代"

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  2000
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 2000
               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-23 16:34

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千11代"

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  2100
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 2100
               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-23 16:35

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千12代"

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  2200
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 2200
               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-23 16:36

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千13代"

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  2300
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 2300
               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-23 16:39

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

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

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  1258
            @ 15,22 say k1
            A=二素8
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  1258
               jl2=recno()
               B=二素8
               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-23 17:14

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

kssj=SECONDS()
bwjm="偶数周期表一加1至1段千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  1101
            @ 15,22 say k1
            A=素数
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1101
               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,"运行时间提示")
一数之差的区别。

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