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

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

admin2020-02-27  38
问题  在考生文件夹中有一个工程文件sjt5．vbp，其功能是：找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图所示。程序运行时，矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并在标签Label3中显示。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并在标签Label4中显示。文件中已给出部分程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按钮的事件过程中的部分程序代码。
    注意：不得修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(4, 4) As Integer Private Sub Command1_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 Command1_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 Label3 = 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：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/zxTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)