某选秀比赛,有十个评委参加评分,要求去掉一个最高分去掉一个最低分,剩下的分数求平均值，用VB做，求程

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a(1 To 10)
Dim ave, sum, min, max
For i = 1 To 10
a(i) = Val(InputBox("请输入第" & i & "个评委的分数"))
Print a(i);
Next i
Print
min = a(1)
max = a(10)
For i = 1 To 10
sum = sum + a(i)
If a(i) < min Then min = a(i)
If a(i) > max Then max = a(i)
Next i
ave = (sum - min - max) / 8
Print "选手的最终成绩：" & ave
End SubPrivate Sub Form_Load()
Me.AutoRedraw = True
Print "输入十位评委的分数："
End Sub