[单项选择题] 以下能够正确计算1+2+3+…+10的程序是

[单项选择题] 以下能够正确计算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 DoSum=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循环只能进行一次。