上面的代码实际上只是求得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版主的改法修改原帮助文件，这也符合大多数人写程序的习惯。