标题:请教求特殊和的代码
取消只看楼主
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
已结贴  问题点数:20 回复次数:0 
请教求特殊和的代码
原表有10个数据(1列10行),想求出所有原表中2个数的和、3个数的和、4个数的和及5个数的和,并将求得的和写入新表。现求2个数的和的代码已搞好,但求3个数的和、4个数的和及5个数的和不会搞,求先生指点,谢谢(求2个数的和的代码如下)。

CLEAR
CLOSE  all
SET SAFETY OFF
n=10
DIMENSION sb(10)
USE 原表
select * from 原表 into array sb  
Create table 新表 (编号 N(10))
 ALTER table 新表 ADD 和 N(20)
kk=0
hz=0
FOR i=1 TO N
   FOR j=1 TO N      
     kk=kk+1
     hz=sb(i)+sb(j)
     APPEND BLANK     
     REPLACE 编号 WITH kk
     REPLACE 和 WITH hz   
   ENDFOR
ENDFOR
MESSAGEBOX('求和已结束!',64,'信息提示')
DELETE FILE *.bak
QUIT  
2015-08-11 14:56



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-456291-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.741511 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved