以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为1

问题：

以下是一个竞赛评分程序。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 8x=Vid(1nputBox("请输入分数:"))If______Ihen Max=xIf______ThhcnMin=xs=s+x Nexti S=______ p=s/6 MsgBox"最后得分:"&pEndSub