某次大奖赛有 7 个评委同时为一位选手打分 ， 去掉一个最高分和最底分 ， 期余 5 个分数的平均值为该名参赛者的最后得分，请填空完成规定的功能。Sub command1_click()Dim mark!,aver!,i%,max1!,min1!Aver=0For i=1 to 7Mark=inputbox( “ 请输入第 ” &i& ” 位评为的打分 ” )If i=1 thenMax1=mark:min1=markElseIf mark<>Min1=markElseif mark >max1 then
题目
某次大奖赛有 7 个评委同时为一位选手打分 ， 去掉一个最高分和最底分 ， 期余 5 个分数的平均值为该名参赛者的最后得分，请填空完成规定的功能。
Sub command1_click()
Dim mark!,aver!,i%,max1!,min1!
Aver=0
For i=1 to 7
Mark=inputbox( “ 请输入第 ” &i& ” 位评为的打分 ” )
If i=1 then
Max1=mark:min1=mark
Else
If mark<>
Min1=mark
Elseif mark >max1 then
_____ 12 ____
End if
End if
__ 13 ____
Next i
Aver=(aver-max1-min1)/5
Msgbox aver
End sub
相似考题
参考答案和解析
更多“某次大奖赛有 7 个评委同时为一位选手打分 , 去掉一个最高分和最底分 , 期余 5 个分数的平 ”相关问题
-
第1题：
15.在某项体育比赛中，七位裁判为一选手打出的分数如下： 90 89 90 95 93 94 93 去掉一个最高分和一个最低分后，所剩数据的平均值为 ，方差为 .
（1）C(15,5)C(10,5)C(5,5)；（2）C(15,5)C(10,5)C(5,5)P(3,3) -
第2题：
选做题：编写一个竞赛评分程序。（设4位选手，5位评委）评分标准：去掉一个最高分，去掉一个最低分，求出选手的平均分。（使用随机函数产生选手成绩，随机函数的使用程序样例见附件）。
选择赛制;编排比赛轮次;抽签进入自己的位置号;编排竞赛日程;编印秩序册 -
第3题：
10、在一次歌手大奖赛上，五位评委为某歌手打出的分数如下：9.4，8.4，9.9,9.6, 9.5，去掉一个最高分和一个最低分后，所剩数据的平均值和标准差分别为 （）
A．9.4, 0.1
B．9.4，0.01
C．9.5, 0.1
D．9.5，0.01
9.5；0.016 -
第4题：
在一次歌手大奖赛上，七位评委为歌手打出的分数如下：9.4,8.4,9.4,9.9,9.6,9.4,9.7，去掉一个最高分和一个最低分，所剩数据的平均值和方差分别为（）
A．9.4， 0.484
B．9.4， 0.016
C．9.5，0.04
D．9.5，0.02
9.5；0.016 -
第5题：
歌唱大赛选手成绩计算：歌唱大赛选手成绩计算方法如下：去掉一个最高分，去掉一个最低分，将剩下分数的平均值作为选手的最后成绩。这里假设共有10位评委，都是按照百分制打分，用数组来存放10个评委的分数。
节奏较简单;内容与文字具有童趣并易于记忆和理解;歌词内容应富于爱、富于没、富于想象、富于教益;歌词形式与内容应适于用动作来表现