填空题：某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完

某次大奖赛有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
【12】
End If
End If
【13】
Next i
aver = (aver - max1- min1)/5
MsgBox aver
End Sub