以下是一个竞赛评分程序。8位评委,去掉一个最高分和一个最低分,计算下均分(设满分为10分), 请填空补充完整。 Private Sub Form_Click() Dim Max as Integer,Min as Integer Dial i as Integer,x as Integer,s as Integer Dim p as Single Max=0 Min=10 For i=1 To 8 x=Val (InputBox("请输入分数:")) If 【13】 Then Max=x If 【14】 Then Min=x s=s+x Next i s= 【15】 p=s/6 MsgBox"最后得分:"&P End Sub