58问答库 > 利用VB编程，输入十个评委给出的分数，去掉最大值与最小值，计算最后的平均值并输出。

利用VB编程，输入十个评委给出的分数，去掉最大值与最小值，计算最后的平均值并输出。

2024-11-17 00:47:35

推荐回答（2个）

回答（1）：

添加一个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

回答（2）：

没分谁回答，想多了吧。