VB 题目 帮帮忙哈

Private Sub Command1_Click()
Dim max As Integer, min As Integer, i As Integer, a As Integer, sum As Integer
max = 0
min = 1000
For i = 1 To 8
a = Val(InputBox("输入" & i & "分数"))
If a > max Then
max = a
Else
If a < min Then min = a
End If
sum = sum + a
Next i
Print (sum - max - min) / 6
End Sub

这个题目问了好多遍了，你为什么不搜索一下，就能找到好多答案。

Private Sub Command1_Click()
Dim a(8) As Integer
For i = 1 To 8
a(i) = InputBox("请输入第" & i & "位评委的打分")
Next i
Max = a(1)
Min = a(1)
For i = 1 To 8
Sum = Sum + a(i)
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next i
Print "平均分为"; (Sum - Max - Min) / 6
End Sub