[问答题] 在考生文件夹下有一个工程文件sjt5.vbp。该程序的功能是：分别统计7×7数组元素之和及元素中能够被7整除的元素的个数，并将统计结果显示在相应的标签中。请仔细阅读已有程序，然后在标出的位

[问答题] 在考生文件夹下有一个工程文件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

参考答案：

[操作步骤] 第A步：打开工程sjtE.vbp。 第B步：编写程序，参考程序如下。 ’考生应编写的程序 Dim gs As Integer Sum=0 gs=0 For i=A To G For j=A To G If i=A Or j=A Or i=G Or j=G Then Sum=Sum+a(i,j) If a(i,j)Mod G=0 Then gs=gs+A End If Next j Next i lblFirst.Caption=gs lblSecond.Caption=Sum 第C步：调试、运行并保存程序。

问题解析:

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