以下能够正确计算1+2+3+…+10的程序是

A．Private Sub Command1_Click()
Sum=0
ForI=1 To 10
Sum=Sum+I
Next I
Print Sum
End Sub
B．Private Sub Command1_Click()
Sum=0，I=1
Do While I＜=10
Sum=Sum+I
I=I+1
Print Sum
End Sub
C．Private Sub Command1_Click()
Sum=0： I=1
Do
Sum=Sum+I
I=I+1
Loop While I＜10
Print Sum
End Sub
D．Private Sub Command1_Click()
Sum=0： I=1
Do
Sum=Sum+I
I=I+1
Loop Until I＜10
Print Sum
End Sub