首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钿时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钿时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
admin
2018-12-20
23
问题
在考生文件夹中有一个工程文件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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
以下不属于单选按钮的属性是( )。
命令按钮Command1的单击事件过程如下:PrivateSubCommand1_Click() Dima(10,10)AsInteger x=0 Fori=1To3 Forj=1To3 a(i,j
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发( )。
以下叙述中错误的是( )。
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommand1_Click() Dima(10)AsInteger DimiAsInteger Randomize Fori=1
以下打开VisualBasic菜单编辑器的操作中,错误的是( )。
下面描述中不属于数据库系统特点的是
设有表示公司和员工及雇佣的三张表,员工可在多家公司兼职,其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),员工S(员工号,姓名,性别,年龄,学历),雇佣E(公司号,员工号,工资,工作起始时间)。其中表C的键为公司号,表S的键为员工号,则表E的
随机试题
A、widespreadB、weatherC、weaveD、weaponC画线部分读[i:],其他选项的画线部分读[ei]。
两只散养成年兔,突然死亡,死前四肢泳动、抽搐、惨叫。剖检可见肝、脾、肾瘀血、肿大,肺部高度瘀血、水肿、散在有出血点或出血斑,气管广泛性出血。该病最可能是
选择纵式或横式外翻缝合的根据是
男性,70岁,间断咳嗽、咳痰、喘息26年,活动后气短7年。3天前受凉后咳嗽、气短加重,咳黄痰,夜间不能平卧,伴尿少、双下肢水肿。护理体检:口唇发绀,呼吸急促,桶状胸,双肺可闻及哮鸣音和少量湿哕音,HR120次/分,心律不齐,肝肋下3cm,轻度压痛,双下肢凹
李某委托张某、许某两人为其共同采购商品,后张某未经许某同意,购买了其亲戚所在公司的假冒伪劣产品,给李某造成损失50万元。问李某的损失应当由谁承担?()
下列不宜作隔振垫的材料是()。
主要检验项目是指()中对安全、卫生、环保和公众利益起决定性的检验项目。
下列机床中()属于精密机床。
下列因素中呈上升趋势时,会导致实现目标利润所需的销售量增加的有()。
根据以下资料,回答下列问题。2008年世界稻谷总产量68501.3万吨,比2000年增长14.3%;小麦总产量68994.6万吨,比2000年增长17.8%;玉米总产量82271.0万吨,比2000年增长39.1%;大豆总产量23095.3万吨,比200
最新回复
(
0
)