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

解答：

For i = 1 To 10 改爲 For i = 0 To 9
For j = 9 To i + 1 改爲 For j = 9 To i + 1 step -1
 t = a(i)  改爲  t = a(j)