2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第46套

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

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

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

　　注意：

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

　　解題思路：

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

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

　　Private Sub Command1_Click()

　　'====考生編寫(xiě)程序開(kāi)始====

　　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

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

　　'不得修改以下部分

　　save Label3

　　End Sub

　　在“對(duì)角線(xiàn)元素之和”命令按鈕的Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command2_Click()

　　'====考生編寫(xiě)程序開(kāi)始====

　　Sum = 0

　　For i = 1 To 4

　　Sum = Sum + a(i, i)

　　Next i

　　Label4.Caption = Sum

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

　　'不得修改以下部分

　　save Label4

　　End Sub

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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt5.vbp文件并運(yùn)行。

　　相關(guān)推薦：

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

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總