[填空题]下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。
PrivateSubCommandl_Click()
Max=0
Min=10
Fori=1To20
n=Val(InputBox("请输入分数"))
Ifn＞MaxThenMax=n
Ifn＜MinThenMin=n
s=s+n
_______
s=s-Min-Max
p=s/18
Print"最高分"；Max；"最低分"；Min
Print"最后得分："；p
EndSub