VB用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。

Private Sub Command1_Click()
  Counter = Counter + 1
  Randomize
  Dim Score As Single, Max As Single, Min As Single, Sum As Single, i As Integer
  Max = 0: Min = 10
  
  For i = 1 To 10
    Score = InputBox("请输入第" & i & "个裁判的打分：", "", Int(Rnd * 1000) / 100)
    Print Format(Score, "0.00") + Space(2);
    Sum = Sum + Score
    If Score > Max Then Max = Score
    If Score < Min Then Min = Score
  Next i
  Sum = Sum - Max - Min
  Print
  Print "去掉一个最高分："; Format(Max, "0.00")
  Print "去掉一个最低分："; Format(Min, "0.00")
  Print "最后得分："; Sum / 8
  Print
End Sub