单选题在窗体画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,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,i
Print sum
End Sub
过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是______。

A.计算矩阵外围一圈元素的累加和
B.计算矩阵除外围一圈以外的所有元素的累加和
C.计算矩阵第1列和最后一列元素的累加和
D.计算矩阵第1行和最后一行元素的累加和

【正确答案】 A

【答案解析】[考点] 数组的基本操作 [解析] 从Command2_Click事件过程代码可知，变量summ记录的是部分数组元素的累加和，被累加的数组元素具有这样的特点：一维下标为1或4的所有数组元素，即矩阵第1行和第4行上的所有数，以及除此之外二维下标为1或5的所有数组元素，即对应矩阵第1列和第5列上的数。实质就是计算矩阵外围一圈元素的累加和。