谁能告诉我这段代码哪错了

Option Explicit
Private Sub Command1_Click()
Dim A(10) As Integer, i As Integer, j As Integer, temp As Integer
Randomize
For i = 0 To 9
A(i) = InputBox("")
Next i
For i = 0 To 8
For j = i + 1 To 9
If A(i) < A(j) Then temp = A(i): A(i) = A(j): A(j) = temp
Next j
Next i
For i = 0 To 9
Picture1.Print A(i) & Space(1);
Next
End Sub
是用inputbox输入10个数然后排序的