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

白新岭 · 发表于 2022-2-16 16:35

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

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

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

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

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

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  1467
            @ 15,22 say k1
            A=二素56
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1467
               jl2=recno()
               B=二素56
               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-2-16 20:13

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

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

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  1270
            @ 15,22 say k1
            A=二素58
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 1270
               jl2=recno()
               B=二素58
               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-2-16 20:40

截止2022年2月16日周三20:40分农历正月十六，热度69，回复1325，浏览量46295.

独木星空谁 · 发表于 2022-2-17 20:39

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

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

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  3271
            @ 15,22 say k1
            A=二素60
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to 3271
               jl2=recno()
               B=二素60
               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-2-18 08:52

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

kssj=SECONDS()
bwjm="素数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  32875208
            @ 15,22 say k1
            A=素数
            jl1=recno()

               C=MOD(A,11)
               SELECT 3
               APPEND BLANK
               REPLACE 偶数 WITH C

            SELECT 1
            skip
            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-2-18 17:19

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

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

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  1309
            @ 15,22 say k1
            A=二素52
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  1309
               jl2=recno()
               B=二素52
               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-2-18 20:29

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

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

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  2438
            @ 15,22 say k1
            A=二素54
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  2438
               jl2=recno()
               B=二素54
               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-2-19 16:40

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

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

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  1467
            @ 15,22 say k1
            A=二素56
            jl1=recno()
               SELECT  1
               GO 1
               For k2=1 to  1467
               jl2=recno()
               B=二素56
               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-2-21 16:24

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

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

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

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