帮我用VB做一个得分计算啊..

Private Sub Command1_Click()
List1.Clear
For i = 1 To 15
List1.AddItem Int(Rnd * 19 + 80)
Next i
End Sub

Private Sub Command2_Click()
Dim j As Integer
Dim he(20) As Integer
Dim s As Integer
For i = 0 To List1.ListCount - 1
h = List1.List(i)
he(i) = Val(List1.List(i))
s = s + he(i)
Next i
Max = he(1)
Min = he(1)
For i = 0 To List1.ListCount - 1
If he(i) > Max Then Max = he(i)
If he(i) < Min Then Min = he(i)
Next i
pingjun = (s - Min - Max) / (List1.ListCount - 2)
Text1 = CCur(pingjun)
End Sub

Private Sub Command3_Click()
Text1.Text = ""
List1.Clear
End Sub