Сортировка массива чисел по возрастанию

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

Dim r As Integer, k As Integer
Dim i, j
For i = 2 To N
For j = 1 To i - 1
If massive(j) > massive(i) Then
r = massive(i)
For k = i To j + 1 Step -1
massive(k) = massive(k - 1)
Next k
massive(j) = r
End If
Next j
Next i

Dim r As Integer, k As Integer
Dim i, j
For i = 2 To N
For j = 1 To i - 1
If massive(j) > massive(i) Then
r = massive(i)
For k = i To j + 1 Step -1
massive(k) = massive(k - 1)
Next k
massive(j) = r
End If
Next j
Next i
'Допишите ещё 1 цикл
For i=1 to N
Label2=Label2 & massive(i) & Space(3)
next i

Option Explicit
'
'   © Антихакер32™
'
'1. Дан ряд символов. Создать одномерный массив, элементами которого есть слова данной строки.
'2. Отсортировать массив по возрастанию.
'3. Организовать поиск в отсортированном массиве.
Dim j$()
 
Private Sub Form_Activate()
    Dim s$, f&, u&
    'Для примера берём какой-либо текст
    s = "Дан ряд символов. Создать одномерный массив, элементами которого есть слова данной строки."
    j = Split(LCase(s)): u = UBound(j) 'Разбиваем на слова
    qSort 0, u: Cls 'Быстро сотрируем и выводим отсортированный список
    For f = 0 To u: Print f & " " & j(f): Next
    Print
    Print "Ищем слово одномерный"
    f = Find("одномерный")
    Print "Находим " & f & " позицию в списке = [" & j(f) & "]"
End Sub
Public Function Find&(Elm$)
    Dim max&, f&
    max = UBound(j)
    For f = 0 To Log(max - 1) / Log(2) + 1
        Find = (Find + max) \ 2
        If Elm > j(Find) Then
            Find = Find + 1
        ElseIf Elm < j(Find) Then max = Find - 1
        Else: Exit Function
        End If
    Next
    Find = -1
End Function
Private Sub qSort(ByVal low As Long, ByVal high As Long)
    Dim I As Long, L As Long, M As String, wsp As String
    I = low: L = high: M = j((I + L) \ 2)
    Do Until I > L: Do While j(I) < M: I = I + 1: Loop: Do While j(L) > M: L = L - 1: Loop
        If (I <= L) Then wsp = j(I): j(I) = j(L): j(L) = wsp: I = I + 1: L = L - 1
    Loop
    If low < L Then qSort low, L
    If I < high Then qSort I, high
End Sub

dim j$(): s$
randomize timer
for f=0 to 2500000: s=s & str(fix (rnd*2^30)):next
j=split(mid$(s,2)) 'Получаем массив величиной 2500000 с рассбросом чисел от 0 до 1073741824

Sub Task()
Dim X(1 To 2500000) As Integer
    Randomize
    For i& = 1 To 2500000
        X(i&) = Rnd * 300
    Next i&
    For i& = 20000 To 20400
        Debug.Print X(i&)
    Next i&
    SortCount X
    For i& = 20000 To 20400
        Debug.Print X(i&)
    Next i&
End Sub
 
Sub SortCount(X() As Integer)
Dim Y(0 To 300) As Long
    For i& = 1 To UBound(X, 1)
        j& = X(i&)
        Y(j&) = Y(j&) + 1
    Next i&
    k& = 1
    For j& = 0 To 300
        If Y(j&) > 0 Then
           For i& = 1 To Y(j&)
               X(k&) = j&
               k& = k& + 1
           Next i&
        End If
    Next j&
End Sub