用VB编写一个歌唱比赛成绩统计程序

来源：百度知道 编辑：UC知道 时间：2024/05/14 05:51:01
要求：有5名选手，6个裁判，成绩记分为10分制，请计算每个演员的比赛成绩，求出前三名。成绩计算办法是去掉一个最高分和一个最低分后，求其余4个分数的平均分。将每个选手得分情况和比赛结果显示出来。（最近学数组，希望能用数组的方法做，谢谢~！）

Option Base 0
Dim s(5, 10) As Single
Dim str1 As String
Private Sub Command1_Click() '输入选手成绩
i = Val(InputBox("请输入先手抽签号(1-5)"))
If i < 1 Or i > 5 Then Exit Sub
s(i, 0) = i
For j = 1 To 6
s(i, j) = Val(InputBox("请输入 " & j & "号裁判的打分(10分)"))
If s(i, j) > 10 Or s(i, j) < 0 Then j = j - 1
Next j

smin = 10
smax = 0
ss = 0

str2 = s(i, 0) & Chr(9)
For j = 1 To 6
str2 = str2 & CStr(s(i, j)) & Chr(9)
ss = ss + s(i, j)
If s(i, j) > smax Then smax = s(i, j)
If s(i, j) < smin Then smin = s(i, j)
Next j
s(i, 7) = smin
s(i, 8) = smax
s(i, 9) = (ss - smin - smax) / 4
Print str1
Print str2 & s(i, 7) & Chr(9) & s(i, 8) & Chr(9) & s(i, 9) & Chr(9)
End Sub

Private Sub Command2_Click()
Print "选手排名"
n = Val(InputBox("要列出前几名", , 5))
Dim temp(1 To 5) As Single