Foxtable(狐表)用户栏目专家坐堂 → [讨论]帮助文件中的表述错误:关于DO LOOP


  共有27280人关注过本帖树形打印复制链接

主题:[讨论]帮助文件中的表述错误:关于DO LOOP

帅哥哟,离线,有人找我吗?
wcs
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1039 积分:7450 威望:0 精华:0 注册:2008/8/31 22:52:00
[讨论]帮助文件中的表述错误:关于DO LOOP  发帖心情 Post By:2008/9/11 22:59:00 [只看该作者]

 

Dim Sum As Integer
Dim
i As Integer = 1
Do
While i <= 100
    Sum = Sum + i
    i = i +
1
   
If i = 50 Then
        Exit
Do
    End
If
Loop

Output.Show(Sum)

上面的代码实际上只是求得1到50的累计值,因为在i等于50的时候退出了循环。


实际上,结果是1-49加总的结果,因为当i=50的时候,就退出了DO  LOOP,没有机会加总了。

如果把i=i+1调上一行,结果就是对的了吧。


 回到顶部
帅哥哟,离线,有人找我吗?
smileboy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 好心情 一级勋章
等级:超级版主 帖子:715 积分:5564 威望:0 精华:1 注册:2008/8/31 20:45:00
  发帖心情 Post By:2008/9/11 23:04:00 [只看该作者]

Dim Sum As Integer
Dim
i As Integer = 1
Do
While i <= 100
    Sum = Sum + i
    i = i +
1
   
If i > 50 Then
        Exit
Do
    End
If
Loop

Output.Show(Sum)


 回到顶部
帅哥哟,离线,有人找我吗?
wcs
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1039 积分:7450 威望:0 精华:0 注册:2008/8/31 22:52:00
  发帖心情 Post By:2008/9/11 23:08:00 [只看该作者]

我在一楼贴的是帮助中的原文,原文有误啊。

smileboy  的当然正确。


 回到顶部
帅哥哟,离线,有人找我吗?
bjljb
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 三级勋章
等级:童狐 帖子:273 积分:2072 威望:0 精华:0 注册:2008/9/5 23:31:00
  发帖心情 Post By:2008/9/12 0:13:00 [只看该作者]

楼主的意思是:


    Sum = Sum + i
    i = i + 1
改成
    i = i + 1
    Sum = Sum + i

但是,如果这样写的话,千万不要忘了把前面的
    Dim i As Integer = 1
改成
    Dim i As Integer = 0

否则程序又变成从2加到50了!这个结果自然也是错的。

 

当然,按照smileboy版主的改法,这个程序就一点儿问题也没有了。

 

我建议还是按照smileboy版主的改法修改原帮助文件,这也符合大多数人写程序的习惯。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/12 8:32:00 [只看该作者]

新的帮助已经改好了

 回到顶部
帅哥哟,离线,有人找我吗?
bjljb
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 三级勋章
等级:童狐 帖子:273 积分:2072 威望:0 精华:0 注册:2008/9/5 23:31:00
  发帖心情 Post By:2008/9/16 0:20:00 [只看该作者]

我下载了9月15号的最新版,刚才正好看到这一段代码,还是没有改过来呀!

 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19229 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/16 8:19:00 [只看该作者]

9月16日已经更新了
[此贴子已经被作者于2008-9-16 8:24:40编辑过]

 回到顶部