не сортирует массив VBA

[Sv.]

необходимо выполнить сортировку массива по возрастанию, но почему-то ничего не делается...

Dim A(30), i, Z, k As Integer
Private Sub CommandButton1_Click()
'Заполнение массива случайными числами
Randomize
N = InputBox("Введите размер массива")
    For i = 0 To N - 1
    A(i) = Int(Rnd() * 20) + 1
    Next i
'Сортировка массива
    For k = 0 To N - 1
    For i = 0 To N - 1
If A(i) > A(i + 1) Then
Z = A(i)
A(i) = A(i + 1)
A(i) = Z
End If
Next i
Next k
'Вывод массива
For i = 0 To N - 1
    TextBox1.Text = TextBox1.Text + " " + Str(A(i))
    Next i
    

 End Sub

[Скрипт]

'Если размер массива задаётся в ходе выполнения кода,
'то размер массива не задаётся при создании массива.
Dim A() As Integer
'В VBA нужно указывать тип данных для каждой переменной,
'иначе у переменной будет тип данных "Variant".
Dim Z As Integer, N As Integer
'В циклах распространено использовать переменные "i" и "j".
Dim i As Integer, j As Integer

Private Sub CommandButton1_Click()

    'Заполнение массива случайными числами
    Randomize
    N = InputBox("Введите размер массива")
    'Разбиваем массив на элементы, чтобы в элементы поместить числа.
    ReDim A(N - 1)
    For i = 0 To N - 1
        A(i) = Int(Rnd() * 20) + 1
    Next i
    
    'Сортировка массива
    'Нужно сделать "-2". Например, если предположить, что массив
    'состоит из двух элементов, то цикл должен быть из одного витка,
    'а не из двух.
    For i = 0 To N - 2
        'После витка цикла с "i" один элемент
        'в массиве будет отсортирован, поэтому нет
        'смысла каждый раз все элементы просматривать.
        For j = 0 To N - 2 - i
            If A(j) > A(j + 1) Then
                Z = A(j)
                A(j) = A(j + 1)
                A(j + 1) = Z
            End If
        Next j
    Next i
    
    'Вывод массива
    For i = 0 To N - 1
        TextBox1.Text = TextBox1.Text + " " + Str(A(i))
    Next i
    
 End Sub

[doober]

Так должно работать

    For k = 0 To n - 1
        For i = 0 To n - 2
            If A(i) > A(i + 1) Then
                Z = A(i)
                A(i) = A(i + 1)
                A(i + 1) = Z
            End If
        Next i
    Next k

[Sv.]

спасибо
все работает, как надо)

[Djeki]

Можно записать элементы в массив без сортировки, а затем массив отсортировать

Array.Sort(A)

[kuklp]

Сообщение от Djeki

Можно записать элементы в массив без сортировки, а затем массив отсортировать

Array.Sort(A)

И можете показать работающий пример?

[Djeki]

Сообщение от kuklp

И можете показать работающий пример?

Да, действительно не работает.. Пардон.

[nerv]

Сообщение от Djeki

Можно записать элементы в массив без сортировки, а затем массив отсортировать

Array.Sort(A)

это Вы, батенька, яваскрипта насмотрелись

[ikki_pf]

ну почему же?
обыкновенный VB.NET
можно и A.Sort()