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

智能型火灾探测器输出的火灾信息是与火灾状况成（）变化的。

A.相性比例

B.线性比例

C.图形比例

D.表形比例