首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
admin
2020-04-08
33
问题
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下:
①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。
②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Textl中。
“读数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Dim k As Long Dim m As Long Dim q As Long Dim P As Long Dim r As Long Dim n As Long For k=1 To 100 If a(k)Mod 2=0 Then′判断是否为偶数 m=m+a(k)′偶数之和 q=q+1′偶数个数加I Else n=n+a(k)′奇数之和 P=P+1′奇数个数加I End If Next k r=Int((m+n)/(p+q)+0.5)′平均值 m=Int(m/q+0.5)′偶数平均值 n=Int(n/p+0.5)′奇数平均值 seleCt CaSe Combol.Text Case"所有偶数" Textl=m Case"所有奇数" Textl=n Case"所有数" Textl=r End SeleCt 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过文件操作,打开文件,把数值读入数组。通过循环语句遍历数组a(k),用If语句和Mod()函数判断是奇数还是偶数,先求出数组中元素的所有奇数和和所有偶数和,计算出平均数,通过Int()函数实现对结果的四舍五入取整,所有奇数和和所有偶数和的加和,求出所有数的和,用同样的方法得出平均数。Select Case语句判断组合框中选中的项目,实现函数的功能,在文本框中显示题目要求的平均值,并按题目要求存盘。
转载请注明原文地址:https://jikaoti.com/ti/sEx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时( )。PrivateSubClick_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
下列控件中,没有Caption属性的是( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
通用对话框Filter属性的作用是
下面关于文件叙述中错误的是( )。
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimXAsIntegerX=Val(InputBox(“请输入一个整数”))
随机试题
先天与后天相互作用论认为,个体的认知结构来源于主体和客体之间的相互作用。()
给定程序MODI1.C中函数fun的功能是:对N名学生的学习成绩,按从高到低的顺序找出前m(m≤10)名学生来,并将这些学生数据存放在一个动态分配的连续存储区中,此存储区的首地址作为函数值返回。请改正函数fun中指定部位的错误,使它能得出正确的结
工时定额通常包括作业时间、布置工作地时间、休息与生活需要的时间。以及()时间和结束时间。
小儿受结核菌感染后,机体对结合菌体蛋白出现变态反应的时间是
关于卵巢形态学特征,下述正确的是
维生素D缺乏性佝偻病的预防措施不包括小儿单纯性肥胖症的预防不包括
男性,52岁,确诊2型糖尿病1年,予合理饮食和运动治疗并口服二甲双胍500mg,每日3次。查体:身高173cm,体重78kg,血压130/90mmHg,心、肺和腹部检查未见异常。复查空腹血糖5.2mmoL/L,三餐后2小时血糖分别为11.4mmol/L、1
在对发电厂进行疏散设计时,配电装置室内最远点到疏散出口的直线距离最多为()m。
教育的正向功能和负向功能在任何社会的任何时期都同时存在,并且两者比重相同。()
两个正数x、y满足x+y=18,求x2y的最大值。()
最新回复
(
0
)