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

A．Private sub Command1_Click( )
sum=0
For 1=1 To 10
Sum=sum+1，
Next I
Print Sum
End Sub

B．Private sub Command1_Click( )
Sum=0,I=1
Do While l＜=10
Sum=Sum+1
I=I+1
Print Sum
End Sub

C．Private Sub command1_click( )
Sum=0：I=1
Do
Sum=Sum+1
I=I+1
Loop While I＜10
Print Sum
End Sub

D．Private Sub command1_Click( )
Sum=0：I=1
Do
Sum=Sum+1
l=I+1
Loop Until I＜10
Print Sum
End Sub