首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
admin
2020-04-08
59
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/dNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
编写如下程序:PrivateSubCommand1_Click()DimnumAsIntegerDimkAsInteger,nAsIntegernum=InputBox("请输入一个正整数:")k
A、PrivateSubForm_Click()x=InputBox("输入界面","请输入数据",20)EndSubB、PrivateSubForm_Click()x=InputBox("请输入数据","输
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click()Dima&,s&,k&s=1a=2Fork=
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
下列可以激活属性窗口的操作是()。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
随机试题
复员军人在婚姻关系存续间从部队带回的医疗费、伤残补助费,属于()
患者,男,79岁。食欲缺乏、口渴7天,嗜睡1天。体温37.0℃血压80/50mmHg,意识模糊,尿糖(++++),尿蛋白(+),尿酮体(一),CO22CP23mmol/L,Urea15.6mmol/L最可能的诊断是
当血钙低于哪个数值时可引起手足抽搐
(2008年)下列各物质的化学键中,只存在σ键的是()。
光盘复制工序不包括()。
()是按公文内容的处理要求分类的。
阅读以下文字。完成以下问题。思想一旦离开利益,就会使自己出丑。思想解放更大的阻力,显然来自既得利益。无可否认,过去三十年的改革进程,是一个利益结构越来越不均匀的过程。强势群体拿走了过多的利益,有一些是合理回报,有一些却未必合理,而不过是利用制度缺
在撰写教育实验研究报告的过程中,搜集的原始数据、典型案例、观察资料等应该放在
因具备调控力度大、效果好、灵活性大等优点,而成为各国进行宏观经济调控最常用的手段是()。
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好窗体对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计:将窗体中名称为“tPass”的文本框控件的内容以密码形式显示。
最新回复
(
0
)