首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Label3中显示。当单击“
admin
2019-03-14
61
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
下列关于线性链表的叙述中,正确的是( )。
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
在程序运行时,下面的叙述中正确的是
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:PrivateSubCommand1Click()DimmAsStringm=InputBox(“请输入字符串”)Printpick_str(m)EndSubP
对如下二叉树进行后序遍历的结果为
数据库系统的核心是
下面关于直线控件的叙述中正确的是
对下列二叉树进行前序遍历的结果是
随机试题
Somepeoplethinkthatsuccessisonlyforthosewithtalentorthosewhogrowupintherightfamily,andothersbelievethats
A、细菌感染B、痛风C、平滑肌痉挛D、疟疾E、中重度疼痛吗啡主要用于治疗
试带法测定尿血红蛋白主要是利用血红蛋白具有
破伤风患者最常见的并发症是
藻酸盐类印模材料的促凝剂主要有
肺病及肝的五行传变是
设计单位未根据勘察成果文件进行工程设计的,责令改正,处10万元以上()以下的罚款。
下列进度控制纠偏措施,属于管理措施的是()。
实施价格歧视的基本条件不包括()。
下列属于计算企业实体现金流量应考虑的内容的是()。
最新回复
(
0
)