求教VB题目6

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:12:30
设有N个裁判员为体操比赛打分，数据通过键盘输入，在去掉一个最高分和去掉一个最低分后，以N-2个数据平均值作为运动员的最终得分，请编程实现。

拜托帮忙！！！
先谢过了

Dim max, min, data(), result, n
max = 0: min = 100
n = Val(InputBox("裁判数"))
ReDim data(n - 1)
For i = 0 To n - 1
data(i) = Val(InputBox(""))
If min > data(i) Then min = data(i)
If max < data(i) Then max = data(i)
result = result + data(i)
Next i
result = (result - min - max) / (n - 2)
Print result

楼上兄弟答的不错