Задания / VBA / Задание_3 / Сортировка одномерного массива

В VB создать программу, которая производила бы сортировку одномерного массива по возрастанию. Форма должна иметь следующий вид:

Командный код следующий:

Private Sub Command1_Click()

Dim N As Integer

N = Val(Text1.Text)

Dim A(10) As Single

'Ввод значений элементов массива A(i)

For i = 1 To N

A(i) = InputBox("Введите элементы сортируемого массива")

Next i

'Сортировка элементов массива A(i)

For i = 1 To N

For j = 1 To N - 1

If A(j) > A(j + 1) Then p = A(j): A(j) = A(j + 1): A(j + 1) = p

Next j

Next i

'Вывод отсортированного массива A(i)

For i = 1 To N

List1.AddItem A(i)

Next i

End Sub

Private Sub Command2_Click()

End

End Sub