首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
admin
2020-04-08
74
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
关于MDI窗体下列说法正确的是()。
以下能够设置控件焦点的方法是( )。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocusEndS
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
某系统总体结构图如下图所示:该系统总体结构图的深度是( )。
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是()。
随机试题
汉语普通话里,依靠音质的差别区别意义的是()
小儿腹泻轻度脱水,丢失水分占体重的
肾衰竭的患者最适合的饮食()
肌萎缩侧索硬化下列哪部位常首先受累
患者,女,66岁。交通事故后导致髋关节屈曲、内收、内旋,应考虑为
秦某租住江某房屋,后伪造江某的身份证和房屋所有权证,将房屋卖给不知情的吴某。房屋登记部门办理过户时未发现材料有假,便向吴某发放了房屋所有权证。江某发现房屋被卖时秦某已去向不明。江某以登记错误为由,提起行政诉讼要求撤销登记。下列哪些选项是正确的?()
人力资源规划的主要目标是()。
我认为你很好强,把公安工作看成跳板,在这干不长。是吗?
学会观察,而不轻信_______;注重思考,而不肤浅地_______;耐心聆听,而不盲目地_______;慎听,慎看,慎猜;勿冲动、勿浮夸、勿幻想;用心去感知生活,感知爱,感知一切美好善恶。填入画横线部分最恰当的一项是:
CAD是()的英文缩写。
最新回复
(
0
)