| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 484 人关注过本帖
标题:循环为什么不可以?
只看楼主 加入收藏
等梦醒
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-8-21
收藏
 问题点数:0 回复次数:6 
循环为什么不可以?
for i=1 to n
for j=i+1 to n
if a(i)==a(j) and b(i)==b(j) and c(i)==c(j)
d(i)='1' d(j)='2'
endif
endfor
endfor
这样写可以吗,不能运行,请高手指点
2006-08-31 08:48
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
d(i)='1' d(j)='2'

d(i)='1'
d(j)='2'
程序没细看。

2006-08-31 08:58
等梦醒
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-8-21
收藏
得分:0 

怎么还是不行,运行完for 循环就结束了,不执行if语句,怎么回事啊?

2006-08-31 10:53
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
N=10 &&假设N=10
for i=1 to n
for j=i+1 to n
if a(i)==a(j) and b(i)==b(j) and c(i)==c(j)
d(i)='1'
d(j)='2'
else
?"..." &&加进这条语句,就是想判断if...else...endif到底有没有执行
endif
endfor
endfor

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-08-31 10:59
等梦醒
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-8-21
收藏
得分:0 
我用调试器 调试,还是没有执行就endfor了。
是不是软件本身的问题,重装一下?
2006-08-31 11:02
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
我的VFP6.0能执行

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-08-31 11:31
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
clear
N=10 &&假设N=10
for i=1 to n
for j=i+1 to n
if I+J>=N&&a(i)==a(j) and b(i)==b(j) and c(i)==c(j)
* d(i)='1'
* d(j)='2'
??"XXX"
else
??"..." &&加进这条语句,就是想判断if...else...endif到底有没有执行
endif
endfor
?
endfor

结果
.....................XXXXXX
...............XXXXXXXXX
.........XXXXXXXXXXXX
...XXXXXXXXXXXXXXX
XXXXXXXXXXXXXXX
XXXXXXXXXXXX
XXXXXXXXX
XXXXXX
XXX

可见IF和ELSE都能运行

检查:你的程序中有没有表打开?打开的表中有没有i和j这样的字段?n的值是多少?a,b,c,d等数组有没有定义并赋字符型值?

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-08-31 11:37
快速回复:循环为什么不可以?
数据加载中...
 
   



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

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