Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim
Sum As Integer上面的代码实际上只是求得1到50的累计值,因为在i等于50的时候退出了循环。
实际上,结果是1-49加总的结果,因为当i=50的时候,就退出了DO LOOP,没有机会加总了。
如果把i=i+1调上一行,结果就是对的了吧。
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)
我在一楼贴的是帮助中的原文,原文有误啊。
smileboy 的当然正确。
楼主的意思是:
把
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版主的改法修改原帮助文件,这也符合大多数人写程序的习惯。