某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。sub commandl_click()Dim mark!，aver!，i％，maxl!，minl!aver=0For i=1 TO 7mark=InputBox(”请输入第”＆i＆”位评委的打分”)工f i=i Thenmaxl=mark：minl=markE1SeIf markminl Thenminl=markElself markmaxl Then【 】End IfEnd If【 】Next iaver=(aver-maxl-minl)／5MsgBox averEnd sub
某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。
sub commandl_click()
Dim mark!，aver!，i％，maxl!，minl!
aver=0
For i=1 TO 7
mark=InputBox(”请输入第”＆i＆”位评委的打分”)
工f i=i Then
maxl=mark：minl=mark
E1Se
If mark<minl Then
minl=mark
Elself mark>maxl Then
【 】
End If
End If
【 】
Next i
aver=(aver-maxl-minl)／5
MsgBox aver
End sub
相关考题：
某次大奖赛有 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 markMin1=markElseif mark max1 then_____ 12 ____End ifEnd if__ 13 ____Next iAver=(aver-max1-min1)/5Msgbox averEnd sub
以下是一个比赛的评分系统，假设有8名评委，评分标准是去掉一个最高分和一个最低分，剩余分数的平均分即为选手的得分。试将程序补充完整。Private sub Form_Click( )Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as singlemax=0min=10For i=1 to 8num=val(inputbox("请输入分数" )if 【 】 then max=humif 【 】 then min=numsum=sum+numNext isum=【 】avg=sum/6Msgbox "最后得分:" avgEnd sub
有七位考官对一位应聘者评分，如果去掉一个最高分和一个最低分，则平均分为7分；如果只去掉一个最高分，则平均分为6.75分；如果只去掉一个最低分，则平均分为7.25分。那么，这位应聘者所得的7个分数中，最高分与最低分的差值为（ ）分。A1.5B2C3D3.5
在一次歌手大奖赛上，七位评委为歌手打出的分数如下：9.4,8.4,9.4,9.9,9.6,9.4,9.7，去掉一个最高分和一个最低分，所剩数据的平均值和方差分别为（）A．9.4， 0.484B．9.4， 0.016C．9.5，0.04D．9.5，0.02
歌唱大赛选手成绩计算：歌唱大赛选手成绩计算方法如下：去掉一个最高分，去掉一个最低分，将剩下分数的平均值作为选手的最后成绩。这里假设共有10位评委，都是按照百分制打分，用数组来存放10个评委的分数。
10、在一次歌手大奖赛上，五位评委为某歌手打出的分数如下：9.4，8.4，9.9,9.6, 9.5，去掉一个最高分和一个最低分后，所剩数据的平均值和标准差分别为 （）A．9.4, 0.1B．9.4，0.01C．9.5, 0.1D．9.5，0.01