首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
admin
2020-07-22
43
问题
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最大值的列次序保存在c(1)中)。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名存盘。程序调试通过后,命令按钮的事件过程必须至少执行一次。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer Private Sub Command1_Click() N = 5 For i = 1 To N ’========考生编写程序开始===== ’========考生编写程序结束===== Next i Save End Sub Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & "\Data5.txt" For Input As #1 Do While Not EOF(1) For i = 1 To 5 For j = 1 To 5 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 For i = 1 To 5 Print #1, b(i), c(i) Next i Close #1 End Sub 程序结束 参考答案 Max = a(i, 1) For j = 1 To 5 If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/3uHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下过程:Subproc()DimchAsStringOpen"file1.txt"ForInputAs#1Open"file1_bak.txt"ForOutputAs#2DoWhi
下列关于栈的叙述正确的是()。
下列关于栈的叙述正确的是()。
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
下面哪个属性肯定不是框架控件的属性( )。
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是()。
对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
设A,B及A*都是n(n≥3)阶非零矩阵,且AB=O,则r(B)=().
2020年12月16日,卡塔尔首都()成功申办2030年亚运会,投票排名第二的()首都利雅得自动顺延,成为2034年亚运会的主办城市。
________包括个人住房贷款、个人消费贷款、个人经营性贷款、银行卡透支等。
关于中性粒细胞减少的原因,正确的是
债券基金的收益受市场利率的影响正确的是()。
变更劳动合同未采用书面形式,但已经实际履行了口头变更的劳动合同超过1个月,且变更后的劳动合同内容不违反法律、行政法规、国家政策以及公序良俗,当事人以未采用书面形式为由主张劳动合同变更无效的,人民法院不予支持。()
2002年我国的粮食产量约为()。2007年我国粮食的平均亩产量约为()。(1公顷=15亩)
下列关于默认参数的叙述中,错误的是
Pollutionisa"dirty"word.Topollutemeanstocontaminate—tospoilsomethingbyintroducingimpuritieswhichmake(31)unfit
A、Keeplookingforhiswalletmorecarefully.B、Reportthetheftofhiswalletassoonaspossible.C、Makeaphonecalltothes
最新回复
(
0
)