首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
admin
2019-06-24
54
问题
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最大值的列次序保存在c(1)中)。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名存盘。程序调试通过后,命令按钮的事件过程必须至少执行一次。
[*]
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Max=a(i,1)将每行第一个数作为该行最大值,以便进行比较 For j=1 To 5 If Max
解析
从考生文件夹下的文件中读出数据,放入5×5的二维数组a中。在命令按钮单击事件过程中,程序中变量Max保存最大数,最初把数组的第一个元素赋给Max,然后将其后的元素依次与之比较,如果大于Max的值则与之交换,依次类推,最终Max中的元素就是最大值,并把每一行的最大值保存到一维数组b中,通过For循环语句和If判断语句找出a数组中每行的最大值以及其在行中的位置,并将所找到的结果分别保存到一维数组c中,把最终的结果保存在文件out5.戗t中。
转载请注明原文地址:https://kaotiyun.com/show/TqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为达到把a、b中的值交换后输出的目的,某人编程如下:PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPrivateSubswap(ByValaAs
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中,下面可实现此功能的事件过程是()。
在考生的文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。在窗体上有两个命令按钮,其名称分别为Command1和Command2,标题分别为“写文件”和“读文件”,如图3—131(a)所示。其中“写文件”命令按钮事件过程用来建立一个
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
命令按钮Command1的单击事件过程如下:PrivateSubCommand1_Click()Dima(10,10)AsIntegerx=0Fori=1To3Forj=1To3
以下关于框架的叙述中,错误的是
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
如果执行一个语句后弹出如图所示的窗口,则这个语句是
在软件开发中,需求分析阶段产生的主要文档是
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
随机试题
患者,男,62岁。发病3天,始见小便量少,点滴而出,近半日突然小便点滴不通,伴小腹胀满,口苦口黏,口干不欲饮,大便不爽,舌质红苔黄腻,脉弦数。方选
男,40岁。胃溃疡史6年,半年来加重,尤其进食后明显,近2天来呕血2次,排黑粪4次。不宜选择的治疗是
迅速判断病人心跳停止的方法是()
IS曲线和LM曲线相交时所形成的均衡收入就是充分就业的国民收入。
旅游业的规范、开发,首先必须做到对旅游资源心中有数。()
每次团体活动都应该包括的内容有()。
裸子植物与被子植物的主要区别是()。
在信号检测论中,随着判断标准的提高,虚报率会()
A=RotherhitheB=BarnesC=WillesdenD=King’sCrossWhichcity...usedtohavelotofproblemssuchasdrugs,streetcri
Lookatthenotesbelow.Youwillhearamanagertellingacolleagueaboutwhathappenedinameeting.
最新回复
(
0
)