后天考vb,有道题求指教,计算1+2+3+……+n当和大于1000时停止计算,并输出此时的和数

Private Sub Command1_Click()
Dim i As Integer
Dim Sum As Integer
i = 1
Sum = 0
Do While (Sum