首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图2.187所示,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入到5行40列的:维数组a中,并按5行显示在Text1文本框内;单击“统计”按钮,则计算每行中小于50的数之和,及这
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图2.187所示,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入到5行40列的:维数组a中,并按5行显示在Text1文本框内;单击“统计”按钮,则计算每行中小于50的数之和,及这
admin
2016-12-29
78
问题
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图2.187所示,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入到5行40列的:维数组a中,并按5行显示在Text1文本框内;单击“统计”按钮,则计算每行中小于50的数之和,及这些数的平均值(平均值保留2位小数,是否四舍五入不限),并将它们(共10个值)分别显示在Labell数组及Text2数组中。单击“保存”按钮,则保存计算结果。“显示数据”和“保存”按钮的Click事件过程已经给出,请编写“统计”按钮的Click事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须用“统计”进行统计,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的奉题工程文件sit5.vbp,打开代码编辑窗口,在指定位置编写以下代码: 参考代码: For i=1 To 5 Sum=0 Counter=0 For j=1 To 40 If a(i,j)<50 Then Sum=Sum+a(i,j) Counter=Counter+1 End If Next Avg=Sum/Counter Labell(i一1).Caption=Sum Text2(i-1).Text=Int(Avg*100)/100 Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按
键运行程序,先单击“显示数据”按钮。接着单击“统计”按钮,然后单击“保存”按钮保存结果。
解析
转载请注明原文地址:https://kaotiyun.com/show/5nGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()。
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:PublicEnumsa==4b==3EndEnumPrivateSubCommandlClick()DimxASInteger
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为()。
在程序运行时,可以通过______方法来移动滚动条的位置。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dima1(4,4)a2(4,4)DimiAsInteger,jAsInte
设有如下通用过程:PublicSubFun(a()AsInteger,xAsInteger)Fori=1TO5x=x+a(i)
窗体上有一个名称为Commandl的命令按钮,其事件过程如下:PrivateSubCommandlClick()DimSAsString()pen"C:\Filel.txt"ForInputAs#1()pe
能够将Picture对象Pic1加载当前目录中的face.bmp的语句是
在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式n!/(n-r)!r!计算,下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即
如果要改变窗体的标题,需要设置窗体对象的______属性。
随机试题
中小学教师专业能力包括教育教学设计、教学的组织与实施、对学生的激励与影响评价等内容。()
下列哪项不是诊断脑震荡的依据
组织并监督企业实施国家药事法律法规、企业质量方针负责企业质量管理部门的设置,确定各部门质量管理职能
只有一个双车道的汽车疏散出口的地下汽车库的最大允许停车位是()辆。
填石路堤填料要求的指标有()。
下列各项中,企业应作为职工薪酬核算的有()。
党的十八届四中全会提出,坚持依法治国首先要坚持依宪冶国,坚持依法执政首先要坚持依宪执政。()
15世纪意大利最杰出的雕塑家是()。
IliveinthelandofDisney,Hollywoodandyear-roundsun.Youmaythinkpeopleinsuchaglamorous,fun-filledplacearehappi
文件IN.DAT中存有300个四位整型数,函数ReadData()负责将IN.DAT中的数读到数组inBuf[]中。请编写函数findValue(),其功能是:求出千位数上的数加百位数上的数等于十位数上的数加个位数上的数的个数count.再求出所有满足此条
最新回复
(
0
)