在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钿时,找出矩阵中最大的数,并在标签Label3中显示。当单击“

admin2018-12-20  19

问题 在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钿时,找出矩阵中最大的数,并在标签Label3中显示。当单击“对角线元素之和”命令按钮时,计算矩阵主对角线元素之和,并在标签Label4中显示。文件中已给出部分程序,请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。
注意:不得修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。程序调试通过后。两个命令按钮的事件过程必须至少各执行一次。

选项

答案步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(4,4)As Integer Private Sub Commandl_Click() ’====考生编写程序开始==== ’====考生编写程序结束==== 不得修改以下部分 save Label3 End Sub Private Sub Command2_Click() ‘====考生编写程序开始==== ’====考生编写程序结束==== 不得修改以下部分 save Label4 End Sub Private Sub Form_Load() Open App.Path&”\in5.txt”For Input As#1 For i=1 To 4 For j=1 To 4 Input#1,a(i,j) Next j Next i Close#1 End Sub 程序结束 Private Sub Commandl_Click() Dim max As Integer max=0 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 LabeB=max save Label3 End Sub Private Sub Command2_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 4 If i=j Then sum=sum+a(i,j) End If Next j Next i Label4=sum save Label4 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 在本题中,文件以Input方式打开,使用一个4行、4列的二维数组a来存放数据,并在一个嵌套的For循环中显示矩阵。
转载请注明原文地址:https://kaotiyun.com/show/LyFp777K
0

最新回复(0)