Сортировка массива чисел по возрастанию - VB (63068)

Формулировка задачи:

Здравствуйте! Я не учусь на программиста и поэтому я здесь. Нужно, чтобы в лэйбл1 выводился рандомный массив чисел, а в лэйбл2 уже отсортированный массив тех же чисел по убыванию. Попробовал написать код, но не могу понять где ошибки. Заранее благодарен.

Private Sub Command1_Click()
Label1.Caption = " "
Label1.Font.Size = 18
Dim massive(9) As Long, J As Long, N As Long, Tmp As Double
Randomize (Time)
For i = 0 To 9
massive(i) = Rnd() * 10
Next i
For i = 0 To 9
Label1.Caption = Label1.Caption & massive(i) & Space(3)
Next i

N = 10
For i = 0 To N Step 1
For J = 1 To N - 2 - i Step 1
  If massive(i) > massive(J + 1) Then
               Tmp = massive(J)
               massive(J) = massive(J + 1)
               massive(J + 1) = Tmp
            End If
        Next J
    Next i
Label2.Caption = Label2.Caption & massive(i) & Space(3)
End Sub

Решение задачи: «Сортировка массива чисел по возрастанию»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Label1.Caption = " "
Label2.Caption = Label1.Caption
Label1.Font.Size = 18
Label2.Font.Size = Label1.Font.Size
Dim massive(9) As Long, i As Integer, J As Integer, N As Integer, Tmp As Double
Randomize (Time)
For i = 0 To 9
massive(i) = Rnd() * 10
Next i
For i = 0 To 9
Label1.Caption = Label1.Caption & massive(i) & Space(3)
Next i
 
 
N = 9
For i = 0 To N - 1
For J = i To N
  If massive(i) > massive(J) Then
               Tmp = massive(J)
               massive(J) = massive(i)
               massive(i) = Tmp
            End If
        Next J
Label2.Caption = Label2.Caption & massive(i) & Space(3)
Next i
Label2.Caption = Label2.Caption & massive(N)
End Sub
                        