最近有不少学生咨询求平均分的问题。类似于多个人投票，去掉最高分，最低分，然后求出总分和平均分。

在日常生活中，我们也经常遇到这些问题，比如运动比赛，裁判都会给出分数，此时分数会有高有低。为了公平公正，避免一些感情因素或者主观意识的影响，都会去掉一个最高分和一个最低分的。

Access去掉最高分，最低分和统计平均分动图

Access去掉最高分，最低分和统计平均分详细VBA代码：               

        Private Sub Command16_Click()

            Dim a(1 To 5) As Double

            Dim max, min, i, j, k, avg, sum As Double

            'Randomize

            min = 999999999

            a(1) = Me.Text0

            a(2) = Me.Text2

            a(3) = Me.Text4

            a(4) = Me.Text6

            a(5) = Me.Text8

           ' Debug.Print a(i);

            For i = 1 To 5

             If max < a(i) Then

                    max = a(i)

                    Me.Text10 = max

                    j = i

             End If

             If min > a(i) Then

                  min = a(i)

                   Me.Text12 = min

                   k = i

              End If

             Next

            For i = 1 To 5

              If a(i) <> a(j) And a(i) <> a(k) Then

                sum = a(i) + sum

                avg = sum / 3

              End If

            Next

             Me.Text14 = avg

        End Sub