vb计算S=1*2+2*3+3*4+.....N*(N+1)直到和大于5000停止，输出结果及N的值。

---

Private Sub Command1_Click()
Dim N As Long, S As Long
Do
N = N + 1
S = S + N * (N + 1)
If S > 5000 Then Exit Do
Loop
Print "结果=" & S
Print " N =" & N
End Sub
'结果=5200
'N=24
请参考。

---

Private Sub cmdCommand1_Click()
Dim sum As Integer
Dim i As Integer
i = 1
Do While sum <= 5000
sum = sum + i * (i + 1)
i = i + 1
Loop
MsgBox sum
End Sub

---