滑坡专门勘察时，控制性勘探孔深度主要受( )控制。（）

A．(A) 中风化基岩埋深

B．(B) 穿过最下一层滑动面

C．(C) 黏性土层厚度

D．(D) 滑带土的厚度

设有如下程序：
Private Sub Command1_Click()
Dim sum AS Double，s 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