VB 20. Сортировка массивов

Выполнение:

1. Рассмотрим задачу упорядочивания массива в простейшей постановке: дан числовой массив х₁, …, х_n, элементы которого попарно различны, требуется переставить элементы массива так, чтобы после перестановки они были упорядочены в порядке возрастания: х₁< … < х_n. Опишем алгоритм решения этой задачи.
2. Используем алгоритм сортировки выбором. Суть его такова: очевидно, что первое место в массиве должен занять наименьший элемент, второе – наименьший из всех остальных элементов и т.д. Пусть x₁, …, x_i-1 уже получили нужные значения. Тогда определение индекса k наименьшего из x_i, x_i+1, … x_n и перестановка x_i c x_k приведут к тому, что x₁, …, x_i будут иметь нужные значения. Составим программу для этого алгоритма.
3. Создайте новый проект и разместите элементы управления (txtN, txtMin, txtMax, lblИсходныйМассив, lblРезультат, btnНовыйМассив, btnСортировка и btnВыход) на форме так, как показано на рисунке (рисунок). Используйте элемент GroupBox для группировки.

4. Установите значение для свойства Enabled кнопки btnСортировка равным False (т.о., заблокировав кнопку).
5. Самостоятельно запрограммируйте кнопку Выход.
6. В разделе описаний объявите динамический массив следующим образом:

Private Массив() As Integer

7. Теперь необходимо инициализировать наш массив целыми числами из некоторого промежутка. Процедура обработки события Click для кнопки btnНовыйМассив выглядит следующим образом:

Private Sub btnНовыйМассив_Click(…) Handles btnНовыйМассив.Click
Dim n As Integer = Val(txtN.Text)
Dim a As Integer = Val(txtMin.Text)
Dim b As Integer = Val(txtMax.Text)
ReDim Массив(0 To n)
If Not n >= 1 Or b < a Then
  MsgBox("Введены ошибочные параметры массива!", MsgBoxStyle.Critical, "Ошибка!")
  Exit Sub
End If
Randomize()
For i = 1 To n
  массив(i) = Rnd() * (b - a) + a
  lblИсходныйМассив.Text = lblИсходныйМассив.Text & Массив(i)
  If i <> n Then lblИсходныйМассив.Text = lblИсходныйМассив.Text & ","
Next
btnСортировка.Enabled = True
End Sub

8. Наконец, реализуем описанный выше алгоритм сортировки в процедуре обработки события Click для кнопки btnСортировка. Предварительно опишем функцию НомерМинимума, которая осуществляет поиск позиции минимального элемента массива:

Private Function номерМинимума(ByVal x() As Integer, ByVal m As Integer) As Integer
' номер минимума в массиве х ищется начиная с х(m)-го элемента
Dim min As Integer = x(m) 'min присваиваем сначала первый элемент массива, затем второй и т.д.
Dim NumberMin As Integer = m
Dim i As Integer
For i = m To UBound(x) ' верхний индекс массива
  If x(i) < min Then min = x(i) : NumberMin = i
Next
номерМинимума = NumberMin
End Function

9. Теперь опишем главный фрагмент кода, который вызывает функцию поиска позиции минимума, начиная с нулевой позиции массива; затем, после выполнения функции, на нулевое место становится минимальный элемент, а функция вызывается с аргументом уже первой (а не нулевой) позиции (затем второй позиции и т.д.):

Private Sub btnСортировка_Click(…) Handles btnСортировка.Click
Dim i As Integer
Dim k As Integer
Dim t As Integer
For i = LBound(Массив) To UBound(Массив)
  k = номерМинимума(Массив, i)
  t = Массив(i)
  Массив(i) = Массив(k) 'при первом заходе в цикл на первую позицию массива ставим минимальный элемент
  Массив(k) = t
Next
For i = LBound(Массив) To UBound(Массив)
  lblРезультат.Text = lblРезультат.Text & Массив(i)
  If i <> UBound(Массив) Then lblРезультат.Text = lblРезультат.Text & ","
Next
btnСортировка.Enabled = False
End Sub

Как Вы заметили, в данном коде вместо точного указания границ массива в цикле For используются значения свойств массива LBound и UBound. В них хранится, соответственно, нижняя и верхняя граница диапазона индексов массива. Использование этих свойств в программе позволяет автоматизировать работу с массивом в случае добавления или удаления его элементов.

10. Запустите и отладьте приложение. Вы, очевидно, заметили, что программа начинает некорректно работать при повторном нажатии на кнопку Новый массив. Для того чтобы выправить эти дефекты, создадим процедуру ОчисткаОкон:

Private Sub ОчисткаОкон()
lblИсходныйМассив.Text = ""
lblРезультат.Text = ""
btnСортировка.Enabled = False
End Sub

11. Вызовем созданную подпрограмму в начале процедуры обработки события Click для кнопки btnНовыйМассив, а также в процедурах обработки события Change для текстовых окон txtN, txtMin и txtMax следующим образом:

Call ОчисткаОкон()

12. Запустите и отладьте приложение.