首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下ind.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数
admin
2020-04-08
24
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
以下关于命令按钮的叙述中正确的是( )。
有如下过程:Subproc()DimchAsStringOpen"file1.txt"ForInputAs#1Open"file1_bak.txt"ForOutputAs#2DoWhi
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocusEndS
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效
随机试题
成人窦性心动过速,是指窦性心律的频率
房地产开发项目盈亏平衡分析中的保本点,是分析计算风险因素变化而使项目达到()时的极限值。
“从一个处于私人地位的产生者身上扣除的一切,又会直接或间接地用来为处于社会成员们的这个生产者谋福利的性质”,即“取之于民,用之于民”,这是()提出的。
某工程有3个施工过程,分为4个施工段组织流水施工。流水节拍分别为2、3、4、3天;4、2、3、5天;3、2、2、4天。则流水施工工期为()。
财务报表编制的基本要求包括()。
净经营收入理论假定,当企业增加债务融资时,股票融资的成本不变。()
企业的行业风险分析主要内容包括()。
如图,抛物线C1:x2=4y,C2:x2=一2py(p>0),点M(x0,y0)在抛物线C2上,过M作C1的切线,切点为A,B(M为原点0时,A,B重合于O),当x0=1一时,切线MA的斜率为.求P的值;
石器时代的陶工制作了复杂并且常常是精致的陶瓷水罐、工具和珠宝。他们也制作了粗糙的陶人。有许多这种精致的陶瓷水罐、工具和珠宝被发现时是完整的或者是几乎完整的,然而大致与这些陶器在同时期制作的陶人却大多以小碎片的形式被发现。以下哪项如果正确,能最好地解
A、 B、 C、 D、 A802.11b无线局域网的典型解决方案中,对等解决方案是一种最简单的应用方案,只要给每台计算机安装一片无线网卡,即可互相访问。它是一种点对点方案,网络中的计算机只能一对一互相传递信息
最新回复
(
0
)