2、编写程序，要求用Do Until... Loop ，计算自然数1-1000之和。程序中有2处局部错误，分别在不同的语句中，请调试程序（没有电脑的同学用脑分析），用
正确的
部分代码替换错误的部分代码（以一个完整标识符或数字为单位）。本题满分4分，找出一个错误得2分。注意：(1)凡涉及到英文字母一律用大写。(2)两个答案按错误出现的先后顺序分两行书写（就像单元测试的填空题有两个空，答案写在两行一样）。(3)不要增减语句或语句的一部分。
Private Sub Command1_Click()
Dim n As Integer, s As Long
n = 1
s = 0
Do While n >= 1000
n = n + 1
s = s + n
Loop
Print s
End Sub

Do Until n >= 1000

s = 1

1.Do While n <= 1000
2.n = 0
调整后代码：
Private Sub Command1_Click()
Dim n As Integer, s As Long
n = 0
s = 0
Do While n <= 1000
n = n + 1
s = s + n
Loop
Print s
End Sub