单选题：有人编写了如下程序：Private Sub Form Click（　　） Dim s As Integer，x As

有人编写了如下程序：
Private Sub Form Click（　　）
Dim s As Integer，x As Integer
s=0
x=0
Do While S=10000
x=x+l
s=s+x^2
Loop
Print 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+1和s=s+x^2的位置