填空题 以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分。请将程序补充完整。
   Dim max As Integer,min As Integer
   Dim i As Integer,x As Integer,s As Integer
   max=0:min=10
   For i=1 To 8
     x=Val(InputBox("请输入得分(0～10):"))
     If 1Then max=x
     If x＜min Then min=x
     s=s+x
   Next i
   s= 2
   MsgBox"最后得分:"&s