'VB编程 编写一个竞赛评分的函数过程。评委打分为参数（数组参数），选手得分为函数值。记分规则为：去掉一个最高分，去掉一个最低分，然后求平均。调用该函数，由键盘输入5个评委的打分（存放在数组中），输出该选手的得分。
Dim aa = 0, bb = Enumerable.Repeat(0, 5).ToArray, cc = 0
While (aa < 5)
bb(aa) = Int16.Parse(Console.ReadLine)
aa += 1
End While
bb = bb.Where(Function(dd) dd <> bb.Max And dd <> bb.Min).ToArray
Dim ee = bb.Average()
