操作题 2. 有一个工程文件6.vbp，运行程序时，从指定文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时，将统计矩阵两个对角线的元素中能被3整除的个数，统计结果显示在标签lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签lblSecond中。
已给出了部分程序，请编写“计算”命令按钮事件过程中的程序代码，以便完成上述功能。
参考代码：
Dim a(7,7)As Integer
Private Sub Command1_Click()
Dim SumAs Long
N=7
Counter=0
Sum=0
'输入代码开始
'输入代码结束
Save
End Sub

【正确答案】【操作步骤】
步骤1：打开考生文件夹下的本题工程文件，在代码编辑窗口的指定位置编写以下代码：
参考代码：
For k=1 To N
Sum=Sum+a(k,k)
If a(k,k)/3=Int(a(k,k)/3)Then
Counter=Counter+1
End If
Ifk＜＞N-k+1 Then
If a(k,N-k+1)/3=Int(a(k,N-k+1)/3)Then
Counter=Counter+1
End If
End If
Next
lblSecond.Caption=Sum
lblFirst.Caption=Counter
步骤2：按＜F5＞键运行程序，然后单击“计算”按钮。
步骤3：按要求将文件保存至考生文件夹中。

【答案解析】 矩阵主对角线上元素的特点：第一维下标与第二维下标相同：7*7矩阵次对角线上元素的特点：第一维下标与第二维下标之和为8。根据题意，可通过一个For循环，将满足主对角线上元素特点的数组元素累加入变量Sum。再通过一个嵌套的For循环逐一判断满足两个对角线上的元素特点的元素能否被3整除，若某数组元素能被3整除，则记录个数的变量Counter增1。