问题
单项选择题
以下能够正确计算1+2+3+…+10的程序是
A．Private Sub Command1_Click() Sum=0 ForI=1 To 10Sum=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
答案
参考答案：A
解析： 本题考查For循环与 Do循环控制语句。A选项进行10次循环，分别将1之10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“lclo”限制，Do循环只能进行一次。