【填空题】

下面是一个歌手大赛评分程序。10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在[5]、[6]、和[7]处填入适当的内容，将程序补充完整。

Private Sub Form_Click()
Max= 0
Min= 10
For i = 1 To 10
x=Val(InputBox("请输入分数"))
If [5] Then Max=x
If [6] Then Min=x
s =s + x
Next i
s = [7]
p = s/[8]
Print "最高分"；Max,"最低分"；Min
Print "最后得分"；p
End Sub