问答题在考生文件夹下有一个工程文件sjt5.vbp。该程序的功能是：分别统计7×7数组元素之和及元素中能够被7整除的元素的个数，并将统计结果显示在相应的标签中。请仔细阅读已有程序，然后在标出的位置编写适当的程序实现上述功能。
要求：不得修改原有程序和控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim a(7,7) As Integer
Private Sub Form_Load()
read
End Sub
Public Sub read()
Open App.Path & "/Data5.txt" For Input As #1
Do While Not EOF(1)
For i=1 To 7
For j=1 To 7
Input #1, a(i,j)
Next j
Next i
Loop
Close #1
End Sub
Private Sub Command1_Click()
Dim Sum As Long
'考生应编写的程序
Save
End Sub
Public Sub Save()
Open App.Path & "/out5.txt" For Output As #1
Print #1. lblFirst.Caption, lblSecond.Caption
Close #1
End Sub

【正确答案】[操作步骤]
第1步：打开工程sjt5.vbp。
第2步：编写程序，参考程序如下。
'考生应编写的程序
Dim gs As Integer
Sum=0
gs=0
For i=1 To 7
For j=1 To 7
If i=1 Or j=1 Or i=7 Or j=7 Then
Sum=Sum+a(i,j)
If a(i,j)Mod 7=0 Then gs=gs+1
End If
Next j
Next i
lblFirst.Caption=gs
lblSecond.Caption=Sum
第3步：调试、运行并保存程序。

【答案解析】[解析] 根据二维数组各元素的下标来判断该元素是否为数组的元素，如果元素的行标为1或列标为1或行标为7或列标为7，则该元素为数组的元素。如果一个元素与7相除余数为0，则说明该元素能被7整除。