【正文】
不得修改以下部分 save Label4 End Sub 按要求保存文件即完成本題。====考生編寫程序開始 ==== Dim sum As Integer Dim i As Integer For i = 1 To 4 sum = sum + a(i, i) Next = sum 39。打開工程文件 ,在 Command Command2的 Click事件中分別輸入如下的代碼: Private Sub Command1_Click() Dim max As Integer Dim i As Integer, j As Integer 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 Next = max 39。程序調(diào)試通過后,兩個命令按鈕的事件過程必須至少各執(zhí)行一次。 注意: 不得修改程序的其他部分和控件屬性。當(dāng)單擊 對角線元素之和 命令按 鈕時,計算矩陣主對角線元 素之和,并顯示在標(biāo)簽 Label4中。程序運(yùn)行時,矩陣數(shù) 據(jù)被放入二維數(shù)組 a中。 程序主要代碼如下: Private Sub Command1_Click() Dim m As Integer Dim n As Integer Dim s As Long Dim i As Integer m = Val() n = Val() s = 0 For i = m To n t = f(i)