首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
admin
2019-03-14
29
问题
在考生文件夹中有一个工程文件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 i Next i Label3=max save Label3 End Sub P14vate Sub Command2_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 4 lf 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/f7Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load() Show
下列关于线性链表的叙述中,正确的是( )。
将数据项"Student"添加到名称为List1的列表框中,并使其成为列表框第一项的语句为( )。
定义无符号整数类为UInt,下面可以作为类UInt实例化值的是( )。
有表示公司和职员及工作的三张表,职员可在多家公司兼职。其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),职员S(职员号,姓名,性别,年龄,学历),工作W(公司号,职员号,工资),则表W的键(码)为
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1—Click()DimiAsInteger,nAsIntegerFori=0To50i=i+
如果要定义一个窗体级变量,定义变量语句的位置应该是
软件测试的目的是
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
下面的数写成普通十进制数是()。2.65358979335278D-6
随机试题
党的十三届全国人大一次会议通过的宪法修正案,把习近平新时代中国特色社会主义思想载入宪法,实现了从党的指导思想向国家指导思想的转化。习近平新时代中国特色社会主义思想是()
内分泌疾病定位诊断检查不包括
A.鹅口疮与声音嘶哑B.咽喉和支气管刺激C.心悸和心动过速D.口干、口苦及尿潴留E.发热、脱水和心律失常
相关人员在值班、巡查、检测、灭火演练中发现的消防设施存在问题和故障后,下列说法中不正确的是()。
协议出让国有土地使用权的最低价由()批准。
1949年,中共召开七届二中全会主要是为了()。
如果学校的财务部门没有人上班,我们的支票就不能人账。我们的支票不能人账,因此,学校的财务部门没有人上班。请在下列各项中选出与上句推理结构最为相似的一句。()
进程P1、P2、P3、P4、P5和P6的前趋图如下图所示:若用PV操作控制这6个进程的同步与互斥的程序如下,那么程序中的空①和空②处应分别为(49);空③和空④处应分别为(50);空⑤和空⑥处应分别为(51)。(49)
Completethetablebelow:WriteNOMORETHANTHREEWORDSforeachanswer.
【1】【4】
最新回复
(
0
)