问题详情

有人编写了如下程序： Private Sub Form. Click() Dim s As Integer，x As Integer s=0 x=0 Do While S=1000 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的位置请帮忙给出正确答案和分析，谢谢！