Question

VB设计一个裁判打分系统，急！求大神帮助！

设计一个裁判打分系统，由十名裁判进行打分，选手的最终得分将由这十个分数中去掉一个最高分，再去掉一个最低分后的平均分来决定。

2．功能要求
（1）界面设计合理，窗体不能改变大小。
（2）程序界面需要有“最后结果”、“清除”、“退出”等功能。
（3）程序运行时由用户输入每个裁判的分数，单击“最后结果”按钮时显示最高分、最低分及最后得分，显示结果要求保留2位小数（应用format函数）。当文本框中有一个以上没输入数字，单击按钮的时候会提示有裁判没有打分。
（4）“清除”按钮可以将所有裁判分数、最高分、最低分及最后得分清除，清除之前先弹出消息框提示，确认后再清除。清除内容后把光标转移到最第一个文本框中。
（5）“退出”按钮可以退出程序。
（6）

文本框限制最多输入5个字符。每一个裁判分数限制在0到10之间，如果输入超出范围，则消息框提示，并将该文本框清空。

Answer 1

Private Sub Command1_Click() '最后结果
Dim a(10) As Single
For i = 0 To Text1.UBound
a(i + 1) = Val(Text1(i).Text)
Next i
Max = a(1): Min = a(1): Sum = 0
For i = 1 To 10
Sum = Sum + a(i)
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next i
Avg = (Sum - Max - Min) / 8
Label1.Caption = Format(Max, "0.00") '最高分
Label2.Caption = Format(Min, "0.00") '最低分
Label3.Caption = Format(Avg, "0.00") '平均分，最后得分
End Sub
Private Sub Command2_Click() '清除
Call Form_Load
End Sub
Private Sub Command3_Click() '结束
End
End Sub
Private Sub Form_Load()
For i = 0 To Text1.UBound
Text1(i).MaxLength = 5
Text1(i).Text = ""
Next i
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""

End Sub
Private Sub Text1_Change(Index As Integer)
t = Val(Text1(Index))
If t < 0 Or t > 10 Then
MsgBox "裁判" & Index + 1 & "所给的分数有误"
Text1(Index).Text = ""
End If
End Sub

Answer 2

需要可以私信我