单选题有人编写了如下程序：
Private Sub Form_Click()
Dim S As Integer, x As integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x2
Loop
Print s
End Sub
上述程序的功能是：计算s=1+2 ² +3 ² +…+n ² +…，直到s＞10000为止。程序运行后，发现得不剑正确的结果，必须进行修改。下列修改中正确的是______。

A、把x=0改为x=1
B、把Do While s=10000改为Do While s＜=10000
C、把Do While s=10000改为Do While s＞10000
D、交换x=x+1和s=s+x^2的位置

【正确答案】 B

【答案解析】[解析] 考查do while循环的执行条件，题目要求直到s＞10000为止，在此题应表达为当s＜=10000时执行循环体，否则跳出循环。