打分和程序，如何做

打分和程序，怎么做？
评委打分的程序，怎么做？
在textbox中输入得分，然后去掉最高分和最低分，显示出最后得分

并在最后给选手的得分排序

怎么做呀？谢谢

[解决办法]
也就是10个数排序。

VB code

Private Sub Command1_Click()    Dim num(9) As Single    Dim i As Integer, j As Integer, k As Integer    Dim min As Single, max   As Single        For i = 0 To 9        Randomize        num(i) = 100 * Rnd    Next            For j = 0 To 9        For k = 0 To 9            If (num(j) < num(k)) Then                min = num(j)                num(j) = num(k)                num(k) = min            End If        Next    Next        Debug.Print num(0)    Debug.Print num(1)    Debug.Print num(2)    Debug.Print num(3)    Debug.Print num(4)    Debug.Print num(5)    Debug.Print num(6)    Debug.Print num(7)    Debug.Print num(8)    Debug.Print num(9)    End Sub