我用vb编计算1-100加起来的和条件是当和大与等于5000退出，结果5005，请问这个和是怎么算出的。谢谢大家！

Question

大家好像没明白的我的意思啊，我是说要求结果大于5000跳出时结果怎么会是5005呢？？我想知道电脑是怎么加的啊。

Answer 1

Private Sub Form_Load()
Dim i As Integer
Dim s As Integer
s = 0
Do While s < 5000
i = i + 1
s = s + i
Loop
Debug.Print "s="; s
End Sub
答案是5050，而不是5005。

Answer 2

do while s<5000
i=i+1
s=s+i
loop
print i,s

Answer 3

从1加到99时，和为（1+99）*99/2=4950，再加下一个是100，和变为5050，和大与等于5000退出，所以结果和是5050。