[問(wèn)答題] 在考生文件夾下有一個(gè)工程文件sjt5.vbp。該程序的功能是：分別統(tǒng)計(jì)7×7數(shù)組元素之和及元素中能夠被7整除的元素的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果顯示在相應(yīng)的標(biāo)簽中。請(qǐng)仔細(xì)閱讀已有程序，然后在標(biāo)出的位置編寫(xiě)適當(dāng)?shù)某绦驅(qū)崿F(xiàn)上述功能。

要求：不得修改原有程序和控件屬性。在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將統(tǒng)計(jì)結(jié)果顯示在標(biāo)簽中，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。

[題目提供的源程序]

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

’考生應(yīng)編寫(xiě)的程序

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步：打開(kāi)工程sjtE.vbp。 第B步：編寫(xiě)程序，參考程序如下。 ’考生應(yīng)編寫(xiě)的程序 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

根據(jù)二維數(shù)組各元素的下標(biāo)來(lái)判斷該元素是否為數(shù)組的元素，如果元素的行標(biāo)為1或列標(biāo)為1或行標(biāo)為7或列標(biāo)為7，則該元素為數(shù)組的元素。如果一個(gè)元素與7相除余數(shù)為0，則說(shuō)明該元素能被7整除。