编写一个歌曲大奖赛评分计分系统。

来源：百度知道 编辑：UC知道 时间：2024/06/21 18:54:40
（1）系统能首先进行有关参数的初始化工作，如输入评委的数量、参加大奖赛的选手数量、各选手编号等初始数据。
（2）现场打分：根据主持人宣读的每一位评委的打分情况，输入各评委的打分，当输入完每个评委的打分后，去掉一个其中的最高分和其中一个最低分，显示所有评委的打分和其中的最低分、最高分以及选手的最后得分。
（3）待所有选手参赛完毕后，显示一个列表，该列表中显示每一位歌手的编号及最后得分，并按各选手的最后得分从高到低排序。
代码好像不太正确，我看不太懂，可以有更好的吗

程序完全按照你的要求
除非你不懂VB
我把程序修过 你再试看看

程序中数据采用随机数取数
请将xxx(i, j) = Int(Rnd * 50 + 50)删除

Dim xxx(), yyy() As Integer
Private Sub Command1_Click()
Randomize
aaa = Val(InputBox("请输入评委人数", "输入"))
bbb = Val(InputBox("请输入选手人数", "输入"))
ReDim xxx(bbb, aaa + 4)
ReDim yyy(bbb, 2)
For i = 1 To aaa
ddd = ddd & "评委" & i & " "
Next i
Print " " & ddd & " 最高 最低 总分"

For i = 1 To bbb
Print i & " 号选手 ";
xxx(i, aaa + 1) = 0
xxx(i, aaa + 2) = 100
xxx(i, aaa + 3) = 0
For j = 1 To aaa
xxx(i, j) = Val(InputBox("请输入第 " & i & " 号选手 第 " & j & " 位评委评分", "输入"))
If xxx(i, j) > xxx(i, aaa + 1) Then xxx(i, aaa + 1) = xxx(i, j)
If xxx(i, j) < xxx(i, aaa + 2) Then xxx(i, aaa + 2) = xxx(i, j)
xxx(i, aaa + 3) = xxx(i,