在考生文件夹中有一个工程文件 sjt5． vbp。 该程序的功能是： 分别统计 7*7 数组四周元素之和及四周元素中能够被 7 整除的元素的个数， 并将统计结果在相应的标签中显示。 请仔细阅读已有程序， 然后在标出的位置编写适当的程序， 实现上述的功能。
要求： 不得修改原有程序和控件的属性。 在结束程序运行之前， 必须至少正确运行一次程序， 将统计的结果显示在标签中， 否则将没有成绩， 最后将修改后的文件按原文件名进行存盘。
步骤 1： 打开本题工程文件。
步骤 2： 分析并编写程序代码。
程序提供代码
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 CommandLClick()
Dim Sum As L0ng
´====考生编写程序开始=======
´=====考生编写程序结束=======
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
程序结束
Dim i As Integer． n As Integer
For i=1 To 7
If a(i， 1)Mod 7=0 Then
n=n+l
ElseIf a(1， i)Mod 7=0 Then
n=n+l
Elself a(7， i)Mod 7=0 Then
n=n+1
ElseIf a(i， 7)Mod 7=0 Then
n=n+1
End If
Next i
lblFirst=n
For i=1 To 7
sum=sum+a(1， i)+a(i， 1)+a(7， 1)+a(1， 7)
Next
sum=sum—a(1， 1)一 a(1， 7)一 a(7， 1)一 a(7， 7)
lblSecond=sum
步骤 3： 调试并运行程序， 关闭程序后按题目要求存盘。
根据题意将考生文件夹内数据文件读入到一个二维数组， 在Command1 Click事件过程中， Mod 函数用于判断数组中四周元素的值是否能被 7 整除， 运用 If 判断语句，实现变量 n 对于被 7 整除的数的统计。 通过 For 循环语句， 统计四周元素之和， 需要注意，对于四个角的值累加了两次， 所以要减去。