单选题编写如下程序：
Private Sub Command1_Click()
　　Dim a(3,3)As Integer
　　Dim s As Integer
　　For i=1 To 3
　　　　For j=1 To 3
　　　　　　a(i,j)=i*j+i
　　　　Next j
　　Next i
　　s=0
　　For i=1 To 3
　　　　s=s+a(i,4-i)
　　Next i
　　Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为______。

A.7
B.13
C.16
D.20

【正确答案】 C

【答案解析】[解析] 程序通过For循环为数组a赋值，具体值如下： a(1,1)=1+1=2，a(1,2)=2+1=3，a(1,3)=3+1=4； a(2,1)=2+2=4，a(2,2)=4+2=6，a(2,3)=6+2=8； a(3,1)=3+3=6，a(3,2)=6+3=9，a(3,3)=9+3=12；程序要计算指定数组元素的和，这几个元素是a(1,3)，a(2,2)，a(3,1)，所以s=4+6+6=16。