有人编写了如下程序：
Private Sub Form_Click()
Dim s As Integer，x As Integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x^2
Loop
Pdnt s
End Sub
上述程序的功能是：计算s=1+22+32+…+n2+…，直到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+l和s=s+x^2的位置

A.把x=0改为x=1
B.把Do
B.把Do
C.交换x=x+l和s=s+x^2的位置

【参考答案】

B
解析：直到s>10000时终止，即：s<=10000时继续，因此本题答案为B)。