单选题在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程。
Option Base 1
Private Sub Command1_Click()
Dim a(5,5) As Integer
For i=1 To 5
For j=1 To 5
a(i,j)=(i+j)*5/10
Next j
Next i
s=0
For i=1 To 5
s=s+a(i, i)
Next i
print s
End Sub
程序运行后，单击命令按钮，输出结果是______。

A、 15
B、 13
C、 11
D、 9

【正确答案】 A

【答案解析】[解析] 程序首先是利用两层For循环给数组进行赋值，其规律是：第一行，a(1，1)=1，a(1，2)=1，a(1，3)=2，a(1，4)=2，a(1，5)=3；第二行，a(2，1)=1，a(2，2)=2，a(2，3)=2，a(2，4)=3，a(2，5)=3；第三行，a(3，1)=2，a(3，2)=2，a(3，3)=3，a(3，4)=3，a(3，5)=4；……第五行，a(5，1)=3，a(5，2)=3，a(5，3)=4，a(5，4)=4，a(5，5)=5。可知正对角线上的是1、2、3、4、5。题中的s就是计算正对角线上的和。故应选择A。