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