设有如下程序：
Private Sub Command1 Click()
Dim sum As Double， x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是( )。

A．1+1/2+2/3+3/4+4/5

B．1+1/2+1/3+1/4+1/5

C．1/2+2/3+3/4+4/5

D．1/2+1/3+1/4+1/5

计算砌块墙外墙高度时，正确的方法是( )。

A．屋面无天棚者外墙高度算至屋架下弦底另加200mm

B．平屋面外墙高度算至钢筋混凝土板底

C．平屋面外墙高度算至钢筋混凝土板顶

D．女儿墙从屋面板上表面算至压顶上表面