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

独木星空谁

SELECT  1
USE D:\连续整数方程\自然数表.DBF ALIAS 自然数表
SELECT  2
USE D:\连续整数方程\自然数周期表.DBF ALIAS 自然数周期表
kssj=SECONDS()


         
          For j=1 to 4320
          @ 15,22 say j
          B=6*j
         
              SELECT 2
             INSERT INTO 自然数周期表 (自然数) SELECT 5*自然数+B FROM 自然数表
         
          ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

SELECT  1
USE D:\连续整数方程\自然数周期表.DBF ALIAS 自然数表
kssj=SECONDS()


For i=1 to 4320
      @ 5,12 say i
   
    A=i
         
          For j=1 to 4320
          @ 15,22 say j
         
          B=2*j
          C=A+B
              SELECT 1
              APPEND BLANK   
              REPLACE 自然数 WITH C   
         
          ENDFOR

   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是上一楼的笨办法。

独舟星海

sele 自然数,sum(方法数) as 方法数 from 自然数二元运算结果表 group by 自然数   into dbf d:\连续整数方程\自然数相同记录求和终

独舟星海

USE d:\连续整数方程\自然数二元运算结果表 EXCL
INDE ON 自然数 TAG X1
TOTAL ON 自然数 TO d:\连续整数方程\自然数相同记录汇总 FIEL 方法数
USE 自然数相同记录汇总
BROW
各有千秋，本语句，也能实现，自然数的合成方法汇总。

白新岭

SELECT  1
USE D:\连续整数方程\三生素数正1.DBF ALIAS 三生正1
SELECT  2
USE D:\连续整数方程\三生素数正2.DBF ALIAS 三生正2
SELECT  3
USE D:\连续整数方程\三生素数二元运算表.DBF ALIAS 三生二元表
kssj=SECONDS()

          SELECT  2
          GO 1
          For j=1 to 1609
          @ 15,22 say j
          B=三中24
         
             SELECT 3
             INSERT INTO 三生二元表 (合成数) SELECT 三中24+B FROM 三生正1
          SELECT  2
          SKIP
          ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

CLOSE DATA
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:\连续整数方程\三生素数二元运算汇总1 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数
USE IN   三生素数二元运算汇总1
对上楼产生的数据汇总

白新岭

SELECT  1
USE D:\连续整数方程\三生素数二元汇总1简.DBF ALIAS 三生二元
SELECT  2
USE D:\连续整数方程\三生素数d24半.DBF ALIAS 三生半
SELECT  3
USE D:\连续整数方程\三生素数三元运算结果表.DBF ALIAS 三生三元结果
kssj=SECONDS()


          SELECT  2
          GO 1
          For j=1 to 943
          @ 15,22 say j
          A=三中24
         
              SELECT 3
             INSERT INTO 三生三元结果 (合成数,方法数) SELECT 合成数+A ,相同记录数 FROM 三生二元
          SELECT 2
          SKIP
          ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

CLOSE DATA
USE d:\连续整数方程\三生素数三元运算结果表.dbf
sele 合成数,sum(方法数) as 方法数 from 三生素数三元运算结果表 group by 合成数  into dbf d:\连续整数方程\三生三元运算统计表
USE IN 三生三元运算统计表
这是对上楼的数据汇总

独木星空谁

SELECT  1
USE D:\连续整数方程\三生素数逆1.DBF ALIAS 三生逆1
SELECT  2
USE D:\连续整数方程\三生素数逆2.DBF ALIAS 三生逆2
SELECT  3
USE D:\连续整数方程\三生素数二元运算表逆.DBF ALIAS 三生二元表
kssj=SECONDS()

          SELECT  2
          GO 1
          For j=1 to 1009
          @ 15,22 say j
          B=三中42
         
             SELECT 3
             INSERT INTO 三生二元表 (合成数) SELECT 三中42+B FROM 三生逆1
          SELECT  2
          SKIP
          ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

CLOSE DATA
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:\连续整数方程\三生素数二元运算汇总逆1 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数
USE IN   三生素数二元运算汇总逆1