添加一个Command1，10个text,分别为text1(0),text1(1).....text1(9),用来输入10个评委的分数，1个text2输出结果。
Private Sub Command1_Click()
Dim MaxT, MinT, SumT As Long
MaxT = Text1(0).Text
MinT = Text1(0).Text
SumT = 0
For i = 0 To 9
SumT = SumT + Text1(i).Text '求和
If Text1(i).Text >= MaxT Then
MaxT = Text1(i).Text '最大值
End If
If Text1(i).Text <= MaxT Then
MinT = Text1(i).Text '最小值
End If
Next
Text2.Text = Format((SumT - MaxT - MinT) / 8, "0.00") '计算平均值
End Sub
没分谁回答，想多了吧。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024