某次大奖赛有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 mark<minl Thenminl=markElself mark>maxl Then【】End

题目

某次大奖赛有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

【】

Next i

aver=(aver-maxl-minl)／5

MsgBox aver

End sub

相似考题

1.某次大奖赛有 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_____ 12 ____End ifEnd if__ 13 ____Next iAver=(aver-max1-min1)/5Msgbox averEnd sub

2.有七位考官对一位应聘者评分，如果去掉一个最高分和一个最低分，则平均分为7分；如果只去掉一个最高分，则平均分为6.75分；如果只去掉一个最低分，则平均分为7.25分。那么，这位应聘者所得的7个分数中，最高分与最低分的差值为（）分。A1.5 B2 C3 D3.5

3.15.在某项体育比赛中，七位裁判为一选手打出的分数如下： 90 89 90 95 93 94 93 去掉一个最高分和一个最低分后，所剩数据的平均值为，方差为 .

4.以下是一个比赛的评分系统，假设有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

参考答案和解析

正确答案：maxl=markaver=averr+mark
maxl=mark,aver=averr+mark 解析：通过。mark和mini比较得出最低分存人minl中，通过mark和maxl比较得出最高分存入maxl中，然后利用aver累加所有的评分，最后从aver中减去最高分和最低分再除以5即为参赛者最后得分。

题目

相似考题

参考答案和解析

更多“某次大奖赛有7个评委同时为一位选手打分,去掉一个最高分和一个最低分,其余5个分数的平均值为该名 ”相关问题

相关内容