VB程序设计中，有10个分数，怎样输入一个除去最大值、最小值，求平均值的程序？急！

先在窗体上放一个text1,在界面将text1的index属性值设为0，这样我们就创建了一个textbox控件数组，用复制粘贴的办法再添加9个成员
再在窗体上放3个按纽控件，代码如下：
Option Explicit: Dim a(9) As Integer, s As Double, max As Integer, min As Integer

Private Sub Command1_Click()
a(0) = Val(Text1(0).Text): a(1) = Val(Text1(1).Text): a(2) = Val(Text1(2).Text): a(3) = Val(Text1(3).Text): a(4) = Val(Text1(4).Text): a(5) = Val(Text1(5).Text): a(6) = Val(Text1(6).Text): a(7) = Val(Text1(7).Text): a(8) = Val(Text1(8).Text): a(9) = Val(Text1(9).Text)
If a(0) < a(1) Then min = a(0) Else min = a(1)
If min > a(2) Then min = a(2)
If min > a(3) Then min = a(3)
If min > a(4) Then min = a(4)
If min > a(5) Then min = a(5)
If min > a(6) Then min = a(6)
If min > a(7) Then min = a(7)
If min > a(8) Then min = a(8)
If min > a(9) Then min = a(9)
If a(0) > a(1) Then max = a(0) Else max = a(1)
If max < a(2) Then max = a(2)
If max < a(3) Then max = a(3)
If