咋做啊，大神们帮帮忙吧

Option Explicit
Dim a(1 To 8) As Integer
Dim i As Integer
Private Sub Command1_Click()
For i = 1 To 8
a(i) = Val(InputBox("请输入第" & i & "个数"))
Next i
End Sub
Private Sub Command2_Click()
Dim j As Integer
Dim t As Integer
For i = 1 To 7
For j = 8 To i + 1 Step -1
If a(j - 1) > a(j) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
End Sub
Private Sub Command3_Click()
Dim d As Double
For i = 4 To 8
d = d + a(i)
Next i
'最后这个标签不是“平均值为”那个标签，而且这个标签的【BorderStyle】属性为1
Label1.Caption = d / 5
End Sub