首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后
admin
2013-04-11
56
问题
以下是一个比赛评分程序。在窗体上建立一个名为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://www.kaotiyun.com/show/B4hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据结构中,与所使用的计算机无关的是数据的______。
惟一能区别一个控件的属性是______。
InputBox函数返回值的类型为______。
以下声明语句中错误的是______。
软件生命周期中所花费用最多的阶段是______。
下面描述中,不符合结构化程序设计风格的是______。
决定控件上文字的字体、字形、大小、效果的属性是______。
在长度为n的线性表中查找一个表中不存在的元素,需要的比较次数为【】。
在名为Form1的窗体上绘制一个标签,名为Lab1,标题为“体育生活”;再绘制一个名为Chk1的复选框数组,含3个复选框,它们的Index属性分别为0、1、2,标题依次为“足球”、“篮球”和“排球”,请设置复选框的属性,使其初始状态如下表所示。注
在窗体上设计两个复选框,一个显示粗体,另一个显示斜体,通过对复选框的选择,在一个文本框中显示相应效果的文本,请完成下列程序。PrivateSubForm_Load()Check1.Caption="显示粗体"
随机试题
对某一股票行情看跌的投资者在本身没有股票的情况下,向经纪人交纳一定比率的初始保证金()现金或证券,从经纪人处借入股票在市场上卖出,并在未来股价下跌后买回该股票归还经纪人的交易称为()
非全日制用工
防治桥头跳车的措施不包括()。
在丽水市有全国唯一的畲族自治地区——景宁畲族自治县。()
儿童心理发展潜能的主要标志是()
下列诗句与季节对应不正确的是()。
设有如下程序:PrivateSubCommandl_Click()DimsumAsDouble,XAsDoubleSum=0n=0Fori=1To5x=n/in=n+
【155】位同事:你们好!首【156】我要跟大家说的就是祝大家节日快乐!接下来我就最近的工作和学习进行简单的汇报和总结。希望大家为我的工作提出宝贵的意【157】。在教学工作方面,受教学任务重的影【158】,我个人学习
ThecurrencyinAustraliais______.
A、Coalburntdailyforthecomfortofourhomes.B、Anythingthatcanbeusedtoproducepower.C、Fuelrefinedfromoilextracted
最新回复
(
0
)