'VB编程 编写一个竞赛评分的函数过程。评委打分为参数（数组参数），选手得分为函数值。记分规则为：去掉一个最高分，去掉一个最低分，然后求平均。调用该函数，由键盘输入5个评委的打分（存放在数组中），输出该选手的得分。

        '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
        Console.WriteLine(bb.Average())