VB 评委打分 有关的详细的问题在下面，我需要详细的代码过程，谢了

1.评委评分文本框为数组，输入最大字符为4，初始值为空;最后得分文本框初始值旦禒测溉爻防诧狮超饯为空，只能显示结果，不得输入文本。 2.单击“计算得分”按钮，程序智能判断评委评分输入是否为空，若为空，则消息框提示，第一个文本框获得焦点。如不为空值，则进一步判断所输入的评分是否超过10分,若有，消息框提示有几处分数超过10分，请重新输入;直到符合要求时才计算最后得分，并将结果在最后得分文本框中显示出来，最后得分计算规则：从6个评委评分中去掉一个最高得分和最低得分,然后计算其余评分的平均分。

亲的工作量实在是有一点大。 Private Sub Command1_Click() For i = 0 To 5 If Text1(i).Text = "" Then MsgBox "请评委输入分数!" Text1(i).SetFocus Exit Sub End If Next i j = -1 For i = 0 To 5 If Val(Text1(i).Text) > 10 Then N = N + 1 If j = -1 Then j = i End If Next i If N > 0 Then MsgBox "有 " & N & " 个分数超过了10分!" Text1(j).SetFocus Else Max = -1: Min = 999 For i = 0 To 5 x = Val(Text1(i).Text) s = s + x If x > Max Then Max = x If x < Min Then Min = x Next i Text旦禒测溉爻防诧狮超饯2.Text = (s - Max - Min) / 4 End If End Sub Private Sub Form_Load() For i = 0 To 5 Text1(i).Text = "" Text1(i).MaxLength = 4 Next i Text2.Text = "" Text2.ForeColor = vbBlack Text2.Enabled = False End Sub

可以私聊我~

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息