首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件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
53
问题
考生文件夹下有一个工程文件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://www.kaotiyun.com/show/qdGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的执行结果是()。PrivateSubCommandl_Click()a=0k=lDoWhilek
窗体上有一个名称为CDl的通用对话框控件和由四个命令按钮组成的控件数组Commandl,其下标从左到右分别为0、l、2、3,窗体外观如图所示。命令按钮的事件过程如F:PrivateSubCommandl_Click(IndexAsInteg
设工程中有Forml、Foml2两个窗体,要求单击Form2不的Commandl命令按钮,Form2就可以从屏幕上消失,下面的事件过程中小能实现此功能的是()。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份,下面判断闰年的正确表达式是()。
窗体上有一个名称为Commandl的命令按钮,其事件过程如下PrivateSubCommandl_Click()X=“VisualBasicProgramming”a=Right(X,11)b=Mid(X,7,5)
要使得文件列表框Filel中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
有以下通用过程:FunctionfunfNAsInteger)s=0Fork=1ToNS=S+k*(k+1)Nextkfun=sEndFunction该过程的功能是
设x=4,y=8,z=7,则以下表达式的运算结果是()。 xz)Orz
软件需求分析阶段的主要任务是
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
随机试题
运动和静止是物质的两种基本存在方式。()
血腑逐瘀汤的功效是()
心脏杂音较局限不传导的器质性病变是
颅前窝骨折最易损伤的神经是
会计科目的设置原则包括()原则。
企业购入A材料2000千克,单价500元,计1000000元,同时购入B材料1000千克,单价1000元,计1000000元。增值税发票上注明的税款共计340000元,货款尚未支付。
托盘运输的效果能根本改变传统的流通方式,满足国际多式联运的要求。
从所给四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
A.四环素牙B.氟牙症C.浅龋D.釉质发育不全E.遗传性乳光牙本质根据以下临床表现,可诊断为:同一时期发育的牙面上,云雾状白垩色或黄褐色斑块()。
Menhavetraveledeversincetheyflintappearedonearth.Inprimitivetimestheydidnottravelforpleasurebutto【C1】____
最新回复
(
0
)