VB程序歌曲大奖赛中,有10个评委进行打分,试编程求这位选手的平均得分(要求:去掉一个最

'使用下面的代码不需要排序评委打分即可得出去除最高分和最低分之后的平均分
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Dim max As Integer, min As Integer, sum As Long

max = -1 '最低分为0分
For i = 1 To 10
a(i) = InputBox("评委" & i & "打分=")
sum = sum + a(i)
If i = 2 Then
If a(i) <= max Then
min = a(i)
Else
max = a(i)
min = a(i - 1)
End If
Else
If a(i) > max Then
max = a(i)
ElseIf a(i) < min Then
min = a(i)
End If
End If
Next
Print "平均得分 = " & Replace(Replace(Format((sum - max - min) / 8, "0.00分"), "0分", "分"), ".0分", "分")
End Sub

For i = 1 To 9
For j = i + 1 To 10
If a (i) > a (j) Then
t = a (i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
s=0
For i = 2 To 9
s = s + a(i)
Next i
v = s / 8
Print "平均得分="; v
End Sub