vb 来叫我啊

Private Sub Command1_Click()
Dim i As Double
Dim maxl As Double
Dim minl As Double
Dim k As Double
Dim s(6) As Double
For i = 1 To 6
s(i) = InputBox("请输入第" & i & "位裁判的分数……")
If i = 1 Then
minl = s(i)
maxl = s(i)
k = s(i)
Else
If maxl < s(i) Then
maxl = s(i)
End If
If minl > s(i) Then
minl = s(i)
End If
k = k + s(i)

End If
Next
k = (k - maxl - minl) / 4
Print k
End Sub

dim a(5),min,max,av,i,j,k,sum
max=0
min=10
for i=0 to 5
if(a(i)>max)
max=a(i)
j=i
end if
if(a(i)<min)
min=a(i)
k=i
end if
next i
for i=0 to 5
if(i<>j & i<>k)sum=sum+a(i)
next i
av=sum/4