在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。

Const n=5．m=4

Dim a(m，n)

Private Sub+Command1 Click（ ）

k=1

For i=1 To m

For j=1 To n

a(i，j)=k

k=k+1

Next j

Next i

End Sub

Private Sub Command2 Click（ ）

summ=0

For i=1 To m

For j=1 To n

If i=1 Or i=m Then

summ=summ+a(i，j)

Else

If j=1 Or j=n Then

summ=summ+a(i，j)

End If

End If

Next j

Next i

Print summ

End Sub

过程Command1_Click（ ）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click（ ）的作用是（ ）。

A.计算矩阵外围一圈元素的累加和

B.计算矩阵除外围一圈以外的所有元素的累加和

C.计算矩阵第1列和最后一列元素的累加和

D.计算矩阵第1行和最后一行元素的累加和