首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中I有一个工程文件sjt5.Vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元索之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Labe13中显示。当单击
在考生文件夹中I有一个工程文件sjt5.Vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元索之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Labe13中显示。当单击
admin
2018-12-20
79
问题
在考生文件夹中I有一个工程文件sjt5.Vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元索之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Labe13中显示。当单击“对角线元素之和”命令按钮时,计算矩阵主对角线元素之和,并在标签Label4中显示,文件中已给出部分程序,请编写“找矩阵元素最大值”及“对角线元索之和”两个命令按钮的事件过程中的部分程序代码。
注意:不得修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
在本题中,文件以Input方式打开,使用一个4行、4列的二维数组a来存放数据,并在一个嵌套的For循环中显示矩阵。 步骤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#l For i=1 To 4 Forj=1 To 4 Input#I,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 lf 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=l To 4 Ifi_j Then sum=sum+a(i,j) End If Next j Next i Label4=sum save Label4 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/zVFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设a=2,b=3,c=4,d=5,下列表达式的值是( )。
下列选项中属于面向对象设计方法主要特征的是( )。
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Co
以下关于窗体的叙述中,错误的是( )。
下面不属于软件需求分析阶段主要工作的是
下列说法中,错误的是
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
以下不属于VB控件的是
下列关于线性链表的叙述中,正确的是( )。
下面不属于软件设计阶段任务的是
随机试题
对胰的描述,错误的是
治疗心源性哮喘的药物是
风湿性二尖瓣狭窄X线检查,常见的发现是
洋地黄中毒引发的室性期前收缩,其治疗首选的是
下列与奥美拉唑不符的叙述是
目前,我国已经成为亚洲最大的出境旅游客源国。()
WhatseemstobethebiggestproblemwithAmerica’shealthcaresystem?WhichofthefollowingmightMr.Porterproposetosolv
下列选项中,当x为大于1的奇数时,值为0的表达式是()。
AmericanDreamsThereisacommonresponsetoAmericaamongforeignwriters:theUSisalandofextremeswherethebestof
•Lookatthechartbelow.ItshowsgrowthofChina’sGDP,exportandimportvolumes.•Whichyeardoeseachsentence(11-15)
最新回复
(
0
)