某次大奖赛有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 maxl=mark：mini=mark Else If mark＜minl then minl=mark ElseIf mark＞max1 then ______ End If End If ______ Next j aver=(aver-max1-mini)/5 MsgBox aver End Sub