[填空题] 下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Min=10

[填空题] 下列是一个体操评分程序。设满分为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