[单项选择题] 以下能够正确计算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循环只能进行一次。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)