VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正

VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正
Private Sub Button1_Click(……) HandlesButton1.Click
Dim a(9) As Integer
Dim i,j,imin,t As Integer
Label1.Text = "原始成绩为：" & vbCrLf
For i = 1 To 10
a(i) = Int(Rnd() * 101)
Label1.Text &= a(i) & " "
Next
For i = 0 To 8
For j = 9 To i + 1
If a(j) < a(j - 1) Then
t = a(i)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
Label2.Text = "排序后的成绩为："& vbCrLf
For i = 0 To 9
Label2.Text &= a(i) & " "
Next i
End Sub