【答案解析】[操作步骤]
步骤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 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, lblSeeond. 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+1
Elself a(1, i)Mod 7=0 Then
n=n+1
Elseff a(7, i)Mod 7=0 Then
n=n+1
Elself 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, i)+a(i, 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循环语句，统计四周元素之和，需要注意，对于四个角的值累加了两次，所以要减去。