| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2194 人关注过本帖
标题:为何不能将求出的“100-999间所有水仙花数”填入表中?
只看楼主 加入收藏
zqall11
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-4-26
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:13 
为何不能将求出的“100-999间所有水仙花数”填入表中?
题目要求:将求出的“100-999间所有水仙花数”填入表b02中,b02中只有一个“水仙花数”字段
我写的这个代码感觉是对的,为何几个水仙花数的值加不进表里去,已经用了append blank?求解答,谢谢!
set talk off
clear
USE B02
 P=1
do while not eof()
  GO P   
   I=100
   DO WHILE I<=999
   A=INT(I/100)
   B=INT((I-100*A)/10)
   C=I-INT(I/10)*10
   IF I=A^3+B^3+C^3  
      append blank
      REPL 水仙花数 WITH I
   ENDIF
   I=I+1   
  ENDDO
   P=P+1
 enddo
SET TALK ON
RETURN
搜索更多相关主题的帖子: blank 水仙花 
2013-04-26 10:25
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:20 
以下是引用zqall11在2013-4-26 10:25:26的发言:

题目要求:将求出的“100-999间所有水仙花数”填入表b02中,b02中只有一个“水仙花数”字段
我写的这个代码感觉是对的,为何几个水仙花数的值加不进表里去,已经用了append blank?求解答,谢谢!
set talk off
clear
USE B02
* P=1
*do while not eof()
*  GO P   
   I=100
   DO WHILE I<=999
   A=INT(I/100)
   B=INT((I-100*A)/10)
   C=I-INT(I/10)*10
   IF I=A^3+B^3+C^3  
      append blank
      REPL 水仙花数 WITH I
   ENDIF
   I=I+1   
  ENDDO
*   P=P+1
* enddo
SET TALK ON
RETURN
* 号后的代码是错误的,新建的表,表是空的。建议楼主多看看VFP帮助文件,看别人的代码,多动脑筋,多想想别人为什么要这样做

坚守VFP最后的阵地
2013-04-26 10:32
zqall11
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-4-26
收藏
得分:0 
回复 2楼 sdta
我这个VFP软件没有可安装的帮助文件,我才学,所以不太懂
2013-04-26 10:43
zqall11
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-4-26
收藏
得分:0 
回复 2楼 sdta
VFP的帮助文件在哪里?是软件的帮助部分吗?我打开是英文的,还是MSDN?
2013-04-26 10:49
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 

坚守VFP最后的阵地
2013-04-26 10:54
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
摆渡一下嘛
2013-04-26 11:06
zqall11
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-4-26
收藏
得分:0 
下到了,呵呵,谢谢,不过,这一题能先给我解答清楚么
2013-04-26 11:15
zqall11
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-4-26
收藏
得分:0 
已经明白了,表如果有记录,可以用定位指针修改记录,如果是空表,只能一个一个用append blank添加记录,不能用指针,谢谢你们
2013-04-26 11:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
USE B02
?RECCOUNT() && 如果B02表是新建的,RECCOUNT()返回值肯定是0 ,RECCOUNT()是返回表中的记录数
do while not eof()
这行代码的意思,就是没到文件尾的意思
根据RECCOUNT()返回值为0的结论,DO WHILE NOT EOF() ENDDO 中间的代码没被执行,所以,最后表中没有记录。

坚守VFP最后的阵地
2013-04-26 11:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
也可以不用
APPEND BLANK
REPLACE 水仙花数 WITH I
用 INSERT INTO B02 VALUES (I) 替代上面两行代码,现在你可能不明白这行代码的意思,以后会明白的。

坚守VFP最后的阵地
2013-04-26 11:32
快速回复:为何不能将求出的“100-999间所有水仙花数”填入表中?
数据加载中...
 
   



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

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