首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
admin
2020-02-27
46
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
下列叙述中正确的是
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序代码:OptionBase1PrivateSubCommandl_Click()Dima(5)AsStringDimiAsIntege
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Textl中输人口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher
以下叙述中错误的是()。
在考生文件夹下有一个工程文件Sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示程序功能如下:(1)考生文件夹下in5.dat
窗体上有1个名称为List1的列表框,其中有若干列表项,并有下面程序代码:PriateSubList1_DblClick()ExchangeList1,List1.ListIndexEndSubPrirateSubExchange(So
下面程序的执行结果是()。PrivateSubCommand1_Click()a=0k=1DoWhilek<4x=k^k^ak=k+1Printx;LoopEndSub
深度为7的二叉树共有127个结点,则下列说法中错误的是()。
随机试题
张小万创作水墨画作品《牡丹》,拍卖会上被企业家王磊购得,随后王磊让其员工李小梅临摹了该画,临摹作品摆放在办公室,原作赠与北京市博物馆收藏,水墨画作品《牡丹》的著作权人是()
在以产出为基础的工资方案中,最不愿意接受收入有波动的员工属于()。
A.FADB.NAD+及NADP+C.辅酶AD.磷酸吡哆醛E.TPP肝脏中维生素B2由上述哪些维生素转化而来
A.宿食内停,阻滞肠胃,传化失司B.食滞内停,运化失司,胃肠不和C.食积内停,气机受阻,浊气上逆D.饮食积滞,阻塞胃气E.外邪犯胃,中焦气滞,浊气上逆
购买处方药由
评价挥发油质量的物理常数有()
某企业2016年度的利润总额为1000万元,其中包括本年收到的国库券利息收入10万元;税收罚款支出10万元,企业适用的所得税税率为25%。该企业2016年所得税费用为()万元。
明清时期的中央主审机关是()。
Mostpeoplewhotravellongdistancecomplainofjet-lag.Jet-lagmakesbusinesstravelerslessproductiveandmoreprone【21】_
The______ofourtriptoLondonwasthevisittoBuckinghamPalace.
最新回复
(
0
)