选择题 18. 以下能够正确计算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

【正确答案】 A

【答案解析】 A选项进行10次循环，分别将1至10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“Iclo”限制，Do循环只能进行一次。