单击命令按钮，下列事件过程的执行结果为()。　　 Private Sub Command1_Click( )　　　　Dim x As Integer, y As Integer　　　　x=40：y=72　　　　Call PtoP(x, y)　　　　Print x; y　　 End Sub　　 Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer)　　　　n = n \ 10+2　　　　m = m \ 10+2　　 End Sub

A．[Page]/，总[Pages]

B．=[Page]/，总[Pages]

C．[Page]＆“//，总”＆ [Pages]

D．=[Page]＆“/，总”＆[Pages]

抽取地下水导致地面下沉的根本原因是( )。

A．土颗粒间的有效应力增大

B．土层中孔隙水压力增大

C．总应力增大

D．土颗粒间有效应力增大的幅度大于土层中孔隙水压力增大的幅度