用VB解答，一次歌曲大奖赛12个评委给选手打分，去一个最高去一个最底，求平均

额.要输入这12个人打的分数.可以用inputbox函数
存入数组.
找出最大最小值.
相加,然后减去最大最小值..除以10.得到结果..
具体做法如下.
Dim i%, score!(1 To 12), Avg!, nMax!, nMin!
For i = 1 To 12
score(i) = Val(InputBox("Input Score"))
Next i
'初始化最大最小值
nMax = score(1)
nMin = score(1)
For i = 1 To 12
If score(i) > nMax Then nMax = score(i)
If score(i) < nMin Then nMin = score(i)
Avg = Avg + score(i)
Next i
Avg = Avg - (nMax + nMin)
Avg = Avg / 10
Print "最终分数"; Avg