3. 綜合應(yīng)用(1小題，計30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾中有一個工程文件sjt5.vbp，其功能是：找出矩陣元素的最大值，并求出矩陣對角線元素之和，窗體外觀如圖所示。程序運行時，矩陣數(shù)據(jù)被放入二維數(shù)組a 中。當(dāng)單擊“找矩陣元素最大值”命令按鈕時，找出矩陣中最大的數(shù)，并顯示在標(biāo)簽Label3中。當(dāng)單擊“對角線元素之和”命令按鈕時，計算矩陣主對角線元素之和，并顯示在標(biāo)簽Label4中。文件中已給出部分程序，請編寫“找矩陣元素最大值”及“對角線元素之和”兩個命令按鈕的事件過程中的部分程序代碼。

　　注意：

　　不得修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，兩個命令按鈕的事件過程必須至少各執(zhí)行一次。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需在“找矩陣元素最大值”命令按鈕的Click事件過程中加入語句：

　　Private Sub Command1_Click()

　　'====考生編寫程序開始====

　　Max = a(1, 1)

　　For i = 1 To 4

　　For j = 1 To 4

　　If a(i, j) > Max Then

　　Max = a(i, j)

　　End If

　　Next j

　　Next i

　　Label3.Caption = Max

　　'====考生編寫程序結(jié)束====

　　'不得修改以下部分

　　save Label3

　　End Sub

　　在“對角線元素之和”命令按鈕的Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　'====考生編寫程序開始====

　　Sum = 0

　　For i = 1 To 4

　　Sum = Sum + a(i, i)

　　Next i

　　Label4.Caption = Sum

　　'====考生編寫程序結(jié)束====

　　'不得修改以下部分

　　save Label4

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關(guān)推薦：

　　2012年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總