【正确答案】[解题思路] 根据题意将考生文件夹内数据文件读入到一个二维数组，在Command1 Click事件过程中，Mod函数用于判断数组中四周元素的值是否能被7整除，运用If判断语句，实现变量n对于被7整除的数的统计。通过For循环语句，统计四周元素之和，需要注意，对于四个角的值累加了两次，所以要减去。
[操作步骤]
步骤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, 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+1
ElseIf a(1, i) Mod 7 =0 Then
n=n+1
ElseIf 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, i) +a(i,7)
Next
sum=sum-a(1, 7) -a(1, 7) -a(7, 1) -a(7,7)
lblSeeond = sum
步骤3：调试并运行程序，关闭程序后按题目要求存盘。