问题详情

以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。
Private Sub Form_Click()
Dim Max As Integer,Min As Integer
Dim i As Integer,x As Integer，s As Integer
Dim p As Single
Max=0
Min=10
For i=1 To 8
x=Val(InputBox("请输入分数："))
If【 】Then Max=x
If【 】 Then Min=x
s=s+x
Next i
s=【 】
p=s/6
MsgBox"最后得分："&p
End Sub请帮忙给出正确答案和分析，谢谢！