Private Sub Command1_Click()
  If Len(Text1) = 0 Then
      MsgBox "选手编号不能为空，请检查！", , "检查"
      Exit Sub
  End If
  For n = 0 To 9
      If Len(Text2(n)) = 0 Then
        MsgBox "评委给分不能为空，请检查！", , "检查"
        Exit Sub
      End If
  Next n
  Max = Val(Text2(0)): Min = Val(Text2(0))
  Sum = Val(Text2(0))
'  For n = ?  To 9
      Select Case Val(Text2(n))
'          Case Is  ?  Max
            Max = Text2(n)
'          Case Is  ?  Min
            Min = Text2(n)
      End Select
'      Sum =  ?  + Val(Text2(n))
  Next n
  score = (Sum - Max - Min) / 8
  Picture1.Print Text1; Space(5); score
  Text1 = ""
  For n = 0 To 9
      Text2(n) = ""
  Next n
End Sub