福州地铁正在建设中，为解决噪声扰民的问题，地铁公司对部分设备安装了消声装置，这种减弱噪声的途径是在

A．声源处

B．传播过程中

C．人耳处

D．声源和人耳处

下列程序段的执行结果为 ______。
Dim m(3，3)As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i=1 To 3
m(i，i)=i
Next
For i=0 To 3
For j=0 To 3
x=x+m(i，j)
Next
Next
Print x

A．3

B．4

C．5

D．6