首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
admin
2018-06-29
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.txt中。
转载请注明原文地址:https://kaotiyun.com/show/qdGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出平均值”),即可
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。
在VisualBasic中,表达式3*2\5Mod3的值是()。
如果在窗体模块中所有程序代码的前面有语句:DimX,则x是()。
有三个关系R、S和T如下:则由火系R和s得到关系T的操作是()。
以下关于菜单的叙述中,错误的是()。
在窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8maj
以下选项中,不合法的VisualBasic的变量名是
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是
在窗体上画一个名称为CommonDialog1的通用对话框,以下语句中正确的是
随机试题
设y=sin4x,则y(n)=_________.
在Word2010的表格中,当改变了某个单元格中的值的时候,计算结果也会随之改变。
Theagriculturalrevolutioninthenineteenthcenturyinvolvedtwothings:theinventionoflabor-savingmachineryandthedevel
A、TofindProfessorSteinfield.B、Tolookforpasttestpapers.C、Tolookforthewoman.D、Tolookforanaspirinforhisheadac
在混凝土抗弯拉强度试验中,计算结果精确至0.01MPa。()
设y=In(cosx),则微分dy等于()。
某厂生产一批商标,形状为等边三角形或等腰三角形。已知这批商标边长为2cm或4cm,那么这批商标的周长可能是:
A、 B、 C、 D、 D
在WindowsXP系统中,通过“开始-设置-控制面板”中的()可以查看系统中已按照标准方式安装的所有程序。
AskanAmericanschoolchildwhatheorsheislearninginschoolthesedaysandyoumightevengetareply,providedyouaskit
最新回复
(
0
)