单选题编写如下程序： Private Sub Command1_Click() Dim a(3，3)As Integer，s As Integer For i=l To 3 For j=1 To 3 a(i，j)=i*j+i Next i 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

【答案解析】解析：本题中首先用一个二重循环为二维数组的每一个元素赋值，然后累加二维数组的部分元素，即依次累加a(1，3)、a(2，2)、a(3，1)的值，相当于对角线求和。