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

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