首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
admin
2010-09-11
34
问题
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分几位最后得分),如图16-9所示。请填空。
Private Sub Command1_Click()
Dim k As Integer
Dim sum Ad Single, max As Single, min As Single
sum=Text1(0)
max=Text1(0)
min=【 】
For k=【 】To 6
If max<Text1(k)Then
max=Text1(k)
End If
If min>Text1(k)Then
Min=Text1(k)
End If
sum=sum+Text1(k)
Next k
Text2=(【 】)/5
End Sub
选项
答案
Text(0) ,1 ,sum-max-min
解析
根据题意,本题的功能是计算得分程序,即去掉一个最高分和一个最低分后的平均分即为最后的得分。所以程序段开始时应将第一个文本框的值Text1(0)赋给sum、max和min,所以[10]处应填入的是Text1(0);对于For循环应该是从Text1(1)开始处理,其下标是1,所以[11]处应填入的是“1”;Text2用来输出得分,即去掉一个最高分和一个最低分后的平均分,所以在[12]处应填入的是“sum-max-min”。
转载请注明原文地址:https://kaotiyun.com/show/ZAmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据结构中,与所使用的计算机无关的是数据的( )。
文件操作中,语句publicStringgetPath()的作用是( )。
设有定义语句intk[]=newint[3];,则下列对此语句的叙述中错误的是( )。
定义类中成员变量时,不可能用到的修饰符是( )。
若x=5,y=10,则x>y&&x++=y--的逻辑值为______。
下面哪一个关键字通常用来对对象加锁,从而使得对对象的访问是排他的?______
请完善程序(程序文件名:Java_3.java)并进行调试。请在下画线处填入正确内容,然后删除下画线。请勿删除注释行和其他已有的语句内容。[题目要求]生成下面左边图形界面,单击图中的New按钮,弹出如右图所示的对话框。源程序:i
算法的时间复杂度是指
下列叙述中正确的是
单击窗口内的按钮时,产生的事件是
随机试题
数据库管理阶段具有的特性包括()。
大量输入时易引起凝血障碍的是治疗门脉高压症腹水的是
骨髓检查原始粒细胞92%,早幼粒细胞6%,红系2%,最有可能的诊断是
甲公司于2016年11月3日收到法院通知,被告知乙公司起诉甲公司侵犯其专利权。乙公司认为,甲公司未经其同意,在试销的新产品中采用了乙公司的专利技术,要求甲公司停止该项新产品的生产和销售,并一次性支付专利使用费80万元。甲公司认为其研制、生产和销售该项新产品
一排6张椅子上坐3人,每2人之间至少有一张空椅子,求共有多少种不同的坐法?
2020年,新冠肺炎疫情在全球范围内爆发。有人认为,某种已经上市但适应症不包括肺炎的A药物可以治疗新冠肺炎。请设计一个实验来验证此药物的有效性。
设三阶矩阵A,B满足关系A一1BA一6A+BA,且A=,则B=________.
设n为自然数,则
Howoftenarelettersdeliveredinyourcountry?Arelettersdeliveredtoeachperson’sdoor?Ismailkeptatthepostofficeun
Theoldideathattalentedchildren"burnthemselvesout"intheearlyyears,and,therefore,aresubjectedtofailureandatwo
最新回复
(
0
)