首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为“得分”的框架,在框架中有一个名称为Textl的文本框数组,含6个文本框控件;文本框Text2用来输入难度系数。程序运行时,在左边的6个文本框中输入6个得分,输入难度系数后,单击“计算分
在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为“得分”的框架,在框架中有一个名称为Textl的文本框数组,含6个文本框控件;文本框Text2用来输入难度系数。程序运行时,在左边的6个文本框中输入6个得分,输入难度系数后,单击“计算分
admin
2020-04-08
60
问题
在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为“得分”的框架,在框架中有一个名称为Textl的文本框数组,含6个文本框控件;文本框Text2用来输入难度系数。程序运行时,在左边的6个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮,则可计算出最后得分并显示在文本框Text3中(如图所示)。
计算方法:
去掉1个最高得分和1个最低得分,求剩下得分的平均分,再乘以3,再乘以难度系数。最后结果保留到第2位小数,不四舍五入。
注意:文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl click() Dim k As Integer,S As Single,a As Single,b As Single a=Val(Textl(0).Text)′将第一个文本框的值作为最大值赋予a s=a b=a′将第一个数作为最小值赋予b For k=1 To
5
’剩余文本框作为循环次数的条件 S=S+Val(Textl(k).Text) If
a
<Val(Textl(k). Text)Then ′取出每个文本框的值与最大值比较,求最大值 a=Val(Textl(k).Text) End If If b >Val(Textl(k). Text)Then b=Val(Textl(k).Text) End If Next k s=(s-a-b)/
4
′根据要求去掉一个最高分和一个最低分后求四科的平均分 S=
s
*3*Val(Text2.Text) ′根据题意此处应填平均分
Text3
=Int(s*i00)/100 ′Int(N)是求小于或等于N的最大整数。同时将最后结果显示在Text3上 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过Val()函数获取文本框数组的值,并把它转换为数值型,通过循环语句和判断语句,找出最大值和最小值赋值给变量a和b,同时累加所有数值的和赋值给s,那么最终的和为s—a—b,根据算法求剩下得分的平均分,乘以3,再乘以Text2中输入的难度系数,得出最终的得分。
转载请注明原文地址:https://kaotiyun.com/show/oATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
结构化程序所要求的基本结构不包括()。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click()Dima&,s&,k&s=1a=2Fork=
在窗体上画一个名称为CD1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:PrivateSubCommand1_Click()CD1.FileName=""CD1.Filter="所有文件|*.*|(*.
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocusEndS
随机试题
在Hibernate中,下面说法错误的是()。
患儿男性,4岁,主因“水肿1个月,加重伴少尿1周”入院。1个月前患儿因“咳嗽、流涕3天”后出现双眼睑水肿,家长予重视。1周前水肿加重,渐波及全身,伴少尿,200~300ml/d。5天前当地医院查尿常规示尿蛋白(++++),尿隐血试验(-)。进一步就诊我院门
急性肾功能不全少尿期,最严重的并发症是
处方的结构中前记部分不包括
房屋只要在合理的使用年限内,只要属于主体结构的问题()。
网络图的( )是指寻求工程总成本最低时候的工期安排,或要求工期寻求最低成本的计划安排的过程。
要改变工作表的列宽,需要进行的操作是()。
根据简单储蓄函数,引起储蓄增加的主要原因是利率的上升。()
反木桶原理就是说:木桶最长的一根木板决定了其特色与优势,在一个小范围内成为制高点;对组织而言,凭借其鲜明的特色,就能跳出大集团的游戏规则,独树一帜建立自己的王国。根据上述定义,下列不符合反木桶原理的一项是:
AddisonHeardusesanimageofhiswifeandinfantsonforthebackgroundonhislaptop.AnMBAstudentattheUniversityofVir
最新回复
(
0
)