VB编程：设计一个体操评分程序,20 位评委,除去一个最高分和一个最低分,计算平均分

Dim a(20) '如果不需要显示20个数的话,不需要数组,a(i)用X代替就可以
Dim max!, Min!, i%
Private Sub Command1_Click() '按钮单击
For i = 1 To 20
a(i) = Int(Rnd * 10) + 1 '[1~10]间在随机数
s = s + a(i) '求和
If i = 1 Then '最大最小值的初值为第一个数
max = a(1): Min = a(1)
Else
If max < a(i) Then max = a(i)
If Min > a(i) Then Min = a(i)
End If
Next i
Print (s - max - Min) / 18 '求平均
End Su