首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图1-153所示,单击“显示数据”按钮,则将考生文件夹下in5.dat 文件的内容读入到5行40列的二维数组a中,并按5行显示在Text1文本框内;单击“统计”按钮,则找出每行中偶数的最大值,计算奇
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图1-153所示,单击“显示数据”按钮,则将考生文件夹下in5.dat 文件的内容读入到5行40列的二维数组a中,并按5行显示在Text1文本框内;单击“统计”按钮,则找出每行中偶数的最大值,计算奇
admin
2018-10-29
23
问题
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图1-153所示,单击“显示数据”按钮,则将考生文件夹下in5.dat 文件的内容读入到5行40列的二维数组a中,并按5行显示在Text1文本框内;单击“统计”按钮,则找出每行中偶数的最大值,计算奇数的平均值(平均值保留2 位小数,是否四舍五入不限),并将它们(共10个值)分别显示在Label1数组中和Text2 数组中。单击“保存”按钮,则保存计算结果。“显示数据”和“保存”按钮的Click事件过程已经给出,请编写“统计”按钮的Click事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须用“统计”按钮进行统计,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,打开代码编辑窗口,在指定位置编写以下代码: 参考代码: For i = 1 To 5 Sum = 0 Counter = 0 Max = 0 For j = 1 To 40 If a(i, j) Mod 2 = 1 Then Sum = Sum + a(i, j) Counter = Counter + 1 Else If a(i, j) > Max Then Max = a(i, j) End If End If Next Avg = Sum / Counter Label1(i - 1).Caption = Max Text2(i - 1).Text = Int(Avg * 100) / 100 Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序,先单击“显示数据”按钮,接着单击“统计”按钮,然后单击“保存”按钮保存结果。
解析
转载请注明原文地址:https://kaotiyun.com/show/03Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
在窗体上添加"控件"的正确的操作方式是( )。
阅读程序:OptionBase1PrivateSubForm_Click()Dima(3,3)AsIntegerFori=1To3Forj=1To3a(
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
能够产生1到50之间(含1和50)随机整数的表达式是( )。
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
顺序文件在一次打开期间( )。
随机试题
有一份合同,出售中国小麦10000公吨,合同规定:“自2月份开始,每月装船1000公吨,分十批交货。”卖方从2月份开始交货,但交至第五批小麦时,小麦品质霉变,不适合人类食用,因而买方以此为由,主张以后各批均应撤销。在上述情况下买方能否主张这种权利?为什
Themadmanwasputinthesoft-paddedcelllesthe______himself.
初产妇第二产程超过多少小时为第二产程延长
下列哪些证候不是蛔厥证的症状
Mr.Joneshasbeenaccusedofdistributingseveralimportant______memorandumstopersonsoutsidethecompany.
导游人员在导游活动中有下列情形之一的,扣除2分()
那些在市场上处于次要地位(第二、第三甚至更低的地位),并积极争取市场领先地位,向竞争者挑战的企业。这是()。
人的意识产生的决定性因素是()
ItisincongruousthatthenumberofBritishinstitutionsofferingMBAcoursesshouldhavegrownby254percentduringaperiodw
Rumoristhemost【C1】______wayofspreadingstories---bypassingthemonfrommouth【C2】______month.Butcivilizedcountriesinn
最新回复
(
0
)