[問答題] 在考生文件夾下有一個工程文件sjt5.vbp，其功能是：找出矩陣元素的最大值，并求出矩陣對角線元素之和，窗體外觀如圖8所示。程序運行時，矩陣數(shù)據(jù)被放入二維數(shù)組a中。當(dāng)單擊“找矩陣元素最大值”命令按鈕時，找出矩陣中最大的數(shù)，并顯示在標(biāo)簽Label3中。當(dāng)單擊“對角線元素之和”命令按鈕時，計算矩陣主對角線元素之和，并顯示在標(biāo)簽Label4中。文件中已給出部分程序，請編寫“找矩陣元素最大值”及“對角線元素之和”兩個命令按鈕的事件過程中的部分程序代碼。注意：不得修改程序的其他部分和控件屬性，最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，兩個命令按鈕的事件過程必須至少各執(zhí)行一次。[題目提供的源程序]標(biāo)準(zhǔn)模塊sjt5.bas內(nèi)容：Public Sub save(1 As Control)Open App.Path & "out5.txt" For Append As #1Print #1, 1.CaptionClose #1End Sub窗體Form1的內(nèi)容：Option Base 1Dim a(4,4) As IntegerPrivate Sub Command1_Click()’考生應(yīng)編寫的程序’不得修改以下部分save Label3End SubPrivate Sub Command2_Click()’考生應(yīng)編寫的程序’不得修改以下部分save Label4End SubPrivate Sub Form_Load()Open App.Path & "in5.txt" For Input As #1For i=1 To 4For j=1 To 4Input #1, a(i,j)Next jNext iClose #1End Sub

[操作步驟]第l步：打開工程sjtE.vbp。第B步：編寫程序，參考程序如下。Private Sub CommandA_Click()考生應(yīng)編寫的程序Dim i As Integer, j As Integer, max As Integermax=a(A,A)For i=A To DFor j=A To DIf a(i,j)＞max Then max=a(i,j)Next jNext iLabelC=max’不得修改以下部分save LabelCEnd SubPrivate Sub Comm

為找出矩陣中最大的數(shù)，原程序在Form_Load事件過程中將所有數(shù)據(jù)讀入到二維數(shù)組A中，先假定數(shù)組中任意一個元素為最大值，再遍歷整個數(shù)組，用數(shù)組元素與假定的最大值比較，如果發(fā)現(xiàn)新的更大的值，則將新的更大的值假定為最大值；繼續(xù)比較，直到數(shù)組的最后一個元素比較完畢為止。