| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 418 人关注过本帖
标题:请教求特殊和的代码
取消只看楼主 加入收藏
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
快速回复:请教求特殊和的代码
数据加载中...
 
   



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

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