首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中I有一个工程文件sjt5.Vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元索之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Labe13中显示。当单击
在考生文件夹中I有一个工程文件sjt5.Vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元索之和,窗体外观如图所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时,找出矩阵中最大的数,并在标签Labe13中显示。当单击
admin
2018-12-20
59
问题
在考生文件夹中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全国计算机二级
相关试题推荐
以下关于控件数组的叙述中,错误的是( )。
设有以下程序:PrivateSubForm_Click() x=50 Fori=1To4 y=InputBox("请输入一个整数") y=Val(y) IfyMod5=0Then a=a+y
下列叙述中正确的是( )。
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
VisualBasic源程序的续行符为
下面不属于软件设计阶段任务的是
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为( )。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
随机试题
A.风疹病毒B.巨细胞病毒C.弓形虫D.梅毒螺旋体E.乙肝病毒哪种病原微生物经飞沫传播
具有高的韧性、低的脆性转变温度、良好的耐蚀性和高温强度、较好的抗氧化性及良好的压力加工和焊接性能,但屈服强度低,不能采用热处理方法强化,此种不锈钢为()。
如果可以有“教育过度”这样一个命题的话,其本意应该是,由于劳动力市场功能和教育质量等方面的因素,导致人力资本供给与需求之间的匹配不当。而不应该是指人力资本总量的过度。国际经验表明,因短期内的教育回报率降低,迫于社会上不恰当的压力而抑制教育发展,或者政府未能
阅读材料回答下列几题:如果说因特网实现了全球几亿用户的“信息”互联,那么“智能互联建筑”则实现了某一网络内“物理设备”的互联。无论是“智能互联城市”还是“智慧的地球”,类似构想的实现,都要求建立发达的“物联网”。《变形金刚2》热映刚毕,
托勒密派天文学家坚持“地球静止说”,其根据是如果地球是转动的,每天一圈,那么地球表面上任何一点在很短的时间都将运动很大一段距离。这时,如果一块石头从塔顶落下来,应该落在离塔很远的地方。可是人们看到的情景并非如此。石头总是落在塔基边缘,可见“地球运动说”是错
TheUnitedStatesCongressisabicamerallegislature.TwoHouses-SenateandHouseofRepresentativesmakethelaws.Beforea
Urbanlifehasalwaysinvolvedabalancingofopportunitiesandrewardsagainstdangersandstress;itsmotivatingforceis,in
Readthearticlebelowaboutthewaystoimproveemployees’motivation.ChoosethebestwordtofilleachgapfromA,B,Cor
Mr.Smithgavehiswifefiftypoundsforherbirthday.Thedayafterherbirthday,Mrs.Smith【C1】______shopping.Shequeued【C2】_
A、TheEastRoom.B、TheRedRoom.C、TheBlueRoom.D、TheGreenRoom.CPauline在听完Jassie对WhiteHouse的了解之后,补充了许多relevantdetails,其中与
最新回复
(
0
)