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

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

参考解析：

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