VB 排序问题 怎么把求出来的数放进数组啊？

来源：百度知道 编辑：UC知道 时间：2024/07/02 17:54:40
6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。
如： 歌手3 95分
歌手 1 87分
歌手 4 80分
歌手 2 70分
多谢！

Private Sub Form_Click()
Dim aver_fs As Single
Dim fs(1 To 5) As Single, i As Integer, sum As Single, count As Integer
Print "请输入学生的分数："
For i = 1 To 5
fs(i) = CInt(InputBox("输入学生分数："))
Print fs(i);
sum = sum + fs(i)
Next i
aver_fs = sum / 5
Print
Print "将5位歌手得分从高到低排列输出："
For j = 1 To 5
for i=2 to 4
If fs(j) < fs(i)Then
t=fs(i)
fs(i)=fs(j)
fs(j)=t
End If
next i
next j
for i=1 to 5
print fs(i)
next i
End Sub