菜鸟问题，请问高手

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String
Dim x(10) As Integer
Dim i As Integer
For i = 1 To 10
a = InputBox("请输入第" & i & "个值")
x(i) = a
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x(10), i As Integer
Dim max As Double, min As Double, sum As Double
sum = 0
min = x(1)
max = x(1)
For i = 1 To 10
sum = sum + x(i)
If x(i) > max Then max = x(i)
If x(i) < min Then min = x(i)
Next
TextBox1.Text = (sum - (min + max)) / 8
End Sub