首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
admin
2010-09-11
76
问题
以下是一个比赛评分程序。在窗体上建立一个名为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全国计算机二级
相关试题推荐
在运行时,由java解释器自动引入,而不用import语句引入的包是______。
在关系模型中,把数据看成是二维表,每一个二维表称为一个【】。
设x=2,则表达式(x++)*3的值是______。
下列关于内部类的说法中,正确的是______。
下列叙述中,错误的是
算法复杂度主要包括时间复杂度和______复杂度。
______是类中的一种特殊方法,是为对象初始化操作编写的方法。
下列表达式中,类型可以作为int型的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$=“VisualBasic”PrintString(3,a$)EndSub程序运行后,
VisualBasic一共有设计、运行和中断三种模式,要使用调试工具应该______。
随机试题
简述双务合同履行中的三种抗辩权。[北航2012年研]
用电设备台数较少,各台设备容量相差悬殊时宜采用需要系数法,进行负荷计算。()
已知单自由度系统的振动固有频率wn=2rad/s,若在其上分别作用幅值相同而频率为w1=1rad/s;w2=2rad/s,w3=3rad/s的简谐干扰力,则此系统强迫振动的振幅为:
某施工单位承担的一项机电安装工程进入单体试运行阶段。项目部计划对一台解体出厂、现场组装的大型裂解石油气压缩机进行试运行,该压缩机转速为5850r/min。试运行前进行检查,确认试运行范围内的工程,压缩机出口管道系统设计压力为11.2MPa,组对焊接工作已经
甲公司为增值税一般纳税人,2015年5月进口一批化妆品,海关核定的关税完税价格为70万元,甲公司缴纳进口关税7万元、进口消费税33万元,已知增值税税率为17%。根据增值税法律制度的规定,甲公司进口该批化妆品应当缴纳的增值税税额是()。
根据国家民航局规定,年满14周岁的旅客应购买成人机票。()
教育心理学是研究教育教学情境中学与教的基本心理规律的科学。()
教育水平与贫困的发生率之间存在着一定的相关度。()
Wastecanbeseeneverywhereintheschool.Somestudentsaskformorefoodthantheycaneatandothersoftenforgettoturnof
设a="a",b="b",c="c",d="d",执行语句x=IIF((a<B)Or(c>D),"A","B")后,x的值为
最新回复
(
0
)