有人编写了如下程序: 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 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的位置