某次大奖赛，有7个评委打分，满分为100分。对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。编写程序输入评委的打分，输出参赛者的得分。

代码：

Private Sub Command7_Click()
Dim Max As Integer, min As Integer
Dim i As Integer, s As Integer, f As Integer
Dim aver!
Max = 0
min = 100
For i = 1 To 7
f = InputBox("请输入评委的打分")
If f > Max Then Max = f
If f < min Then min = f
s = s + f
Next i
aver = (s - Max - min) / 5
Print "参赛者最后得分为："; aver, Max, min

End Sub