设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click() Dim a(3,3) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=i*j+iNext j Next iSum=0For i=1 To 3Sum=Sum+a(i,4-i) Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是______。

A．20

B．7

C．16

D．17

地役权设立未经登记，不得对抗善意第三人。（）