某次大奖赛有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 then min1= mark ElseIf mark> max1 then 【1】 End If End If 【2】 Next i aver = (aver - max1- min1)/5 MsgBox aver End Sub
2（）
