下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1 Click() Max==0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n＞Max Then Max=n If n＜Min Then Min=n s=s+n ______ S=S-Min-Max P=s/18 Print"最高分"; Max; "最低分"; Min Print"最后得分：": P End Sub