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