以下是一个竞赛评分程序。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