评委打分统计程序：将10个评委打分输入到数组s中，去掉一个最高分和最低分，显示最后平均得分（VB程序）

窗体上放个按纽，代码如下
Private Sub Command1_Click()
Dim s(9) As Double, i As Integer, k As Double, max As Double, min As Double
For i = 0 To 9
s(i) = InputBox("请打出一个分数")
Next i
If s(0) < s(1) Then min = s(0) Else min = s(1)
If min > s(2) Then min = s(2)
If min > s(3) Then min = s(3)
If min > s(4) Then min = s(4)
If min > s(5) Then min = s(5)
If min > s(6) Then min = s(6)
If min > s(7) Then min = s(7)
If min > s(8) Then min = s(8)
If min > s(9) Then min = s(9)
If s(0) > s(1) Then max = s(0) Else max = s(1)
If max < s(2) Then max = s(2)
If max < s(3) Then max = s(3)
If max < s(4) Then max = s(4)
If max < s(5) Then max = s(5)
If max < s(6) Then max = s(6)
If max < s(7) Then max = s(7)
If max < s(8) Then max = s(8)
If max < s(9) Then max = s(9)
k = (s(0) + s(1) + s(2) + s(3) + s(4) + s(5) + s(6) + s(7) + s(8) + s(9)