2. 计算机
  3. 考生文件夹下的工程文件sit4．vbp中有1个标题为“编号”的标签Label1，1个用于接收选手编号的初始文本为空的文本框Text1；1个含有10个元素的文本框控件数组Text2用于接收10个评委对某选手的打分；另有1个含有10个元素的标签控件数组Labe

考生文件夹下的工程文件sit4．vbp中有1个标题为“编号”的标签Label1，1个用于接收选手编号的初始文本为空的文本框Text1；1个含有10个元素的文本框控件数组Text2用于接收10个评委对某选手的打分；另有1个含有10个元素的标签控件数组Labe

admin2019-06-20  77
问题 考生文件夹下的工程文件sit4．vbp中有1个标题为“编号”的标签Label1，1个用于接收选手编号的初始文本为空的文本框Text1；1个含有10个元素的文本框控件数组Text2用于接收10个评委对某选手的打分；另有1个含有10个元素的标签控件数组Label2用于显示评委名称：“评委1”、“评委2”…，还有1个标题为“统计得分”的命令按钮。请再添加1个图片框Pieture1，2个根据显示的内容自动调整大小、标题分别为“选手编号”和“得分”的标签LabeB和Label4，如图所示。

    程序功能如下：
    在Text1文本框中输入选手编号，并在Text2文本框控件数组中输入10个评委对该选手的打分情况后，单击“统计得分”按钮，则对10个评委的打分去掉一个最高分和一个最低分之后求平均分，该平均分即为选手的最后得分。最后将选手编号和得分显示在图片框Picture1中，并将Text1、Text2的内容置为空。
    命令按钮的Click事件过程已经给出，但是事件过程并不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名进行存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件，添加两个标签和一个图片框，属性见表2。 [*] 步骤2：分析并编写程序代码。 程序提供代码如下： Private Sub Command1_Click() If Len(Text1)=0 Then MsgBox"选手编号不能为空，请检查!"，"检查" Exit Sub End If For n=0 To 9 If Len(Text2(n))=0 Then MsgBox"评委给分不能为空，请检查!"，"检查" Exit Sub End If Next n Max=Val(Text2(0))：Min=Val(Text2(0)) Sum=val(Text2(0)) ’For n=?To 9 Select Case Val(Text2(n)) ’Case Is?Max Max=Text2(n) ’Case Is?Min Min=Text2(n) End Select ’Sum=?+Val(Text2(n)) Next n score=(Sum-Max-Min)／8 Picture1．Print Text1；Space(5)；score Text1="" For n=0 To 9 Text2(n)="" Next n End Sub 参考答案： 第1个?处填入：1 第2个?处填入：＞ 第3个?处填入：＜ 第4个?处填入：Sum 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 在Command1 Click事件过程中，通过Len函数判断选手的编号是否为空，如果Len(Text1)=0，那么弹出对话框“选手编号不能为空，请检查!”，退出程序。同理，检验评委给分，如果为空弹出对话框“评委给分不能为空，请检查!”。退出程序。通过For语句和Select Case语句统计最大值、最小值以及所有评委评分总和，然后按照题目要求对10个评委的打分去掉一个最高分和一个最低分之后求平均值，该平均分即为选手的最后得分，运用图片框的Print方法，输出选手编号和得分，并运用Space(5)输出空格函数进行调整，向时将Text1、Text2的内容置为空。
转载请注明原文地址:https://www.kaotiyun.com/show/MSUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)