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

请填空补充完整。

Private Sub Form_Click()

D．im Max as Integer,Min as Integer

D．ial i as Integer,x as Integer,s as Integer

D．im p as Single

Max=0

Min=10

F．or 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

E．nd Sub