Question

用VB写一段代码

已知文本文件“score.txt”中存放了五个选手的参赛成绩（第一列为姓名，第二到第八列为七个评委给选手给的分数，第九列为难度系数），得分的计算方法为：从七个成绩中去掉最高分和最低分，剩余的五个成绩取平均值后乘难度系数为最后的得分。
要求计算每个选手的最后得分，并显示最后得分最高者的姓名。

Answer 1

Dim a(1 To 5)

Private Sub Command1_Click()
Max = "0,0"
Open "御腔锋D:\score.txt" For Input As #1
For l = 1 To 5
Line Input #1, a(l)
T = Split(a(l), vbTab)
For I = 1 To 6
For J = I + 1 To 7
If Val(T(I)) > Val(T(J)) Then temp = T(I): T(I) = T(J): T(J) = temp
Next J
Next I
For I = 2 To 6
Sum = Sum + Val(T(I))
Next
Print T(0) & ":" & Sum / 5 * Val(T(8))
If (Sum / 5) * Val(T(8)) > Val(Split(Max, "!")(0)) Then Max = (Sum / 5) * Val(T(8)) & "!" & T(0)
Sum = 0
Next
Print Split(Max, "!"镇晌圆凳)(1)
End Sub