以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。
PrivateSubForm_Click()
Dim Max as Integer,Min as Integer
Dim i as Integer,x as Integer,s as Integer
Dimp p as Single
Max=0
Min=10
Fori=1 To 8
x=Vid(1nputBox("请输入分数:"))
If______Ihen Max=x
If______ThhcnMin=x
s=s+x
Nexti
S=______
p=s/6
MsgBox"最后得分:"&p
EndSub