Проект «Сортировка числового массива»

Проект «Сортировка числового массива» 1. Поместить на форму frm1 кнопку cmd1 и создать  для неё событийную процедуру cmd1_Click(),  реализующую заполнение массива случайными  числами (см. предыдущую работу). 2. Определить переменные для всего программного  модуля. Преобразовать событийную процедуру из  проекта «Поиск в числовом массиве» в общую  процедуру МинЭлемент(bytI, bytN As  Byte),набранную в программном коде: Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK, bytR, bytN As Byte ‘Общая процедура поиска минимального элемента Sub МинЭлемент(bytI, bytN As Byte) bytMin = bytA(bytI) bytN = bytI For bytJ = bytI + 1  To 10 If  bytA (bytJ) < bytMin  Then  bytMin = bytA(bytJ): bytN=bytJ Next bytJ End Sub Создать событийную процедуру сортировки. Для  осуществления перестановки использовать  промежуточную переменную bytR. Для визуализации  процесса сортировки для каждого цикла перестановки элементов (цикл по переменной bytI) в цикле по  переменной bytK  выводить в текстовое поле txtSort  значения элементов массива. 3. ‘ Событийная процедура сортировки Private Sub cmd2_Click() txtSort .Text = “ “ For bytI = 1 To 9 ‘ Вызов общей процедуры поиска минимального  элемента Call МинЭлемент(bytI, bytN) ‘ Перестановка bytR = bytA (bytI) bytA (bytI) = bytA (bytN) bytA (bytN) = bytR ‘Печать массива для каждого цикла перестановки For bytK = 1 To 10 txtSort . Text = txtSort . Text + Str(bytA(bytK)) Next bytK Next bytI End Sub 4. Запустить проект. Щёлкнуть по кнопкам  Заполнить массив и Сортировать. В текстовом поле будет реализована визуализация процесса сортировки  числового массива по шагам. Проект «Сортировка числового массива» 1. Поместить на форму frm1 кнопку cmd1 и  создать для неё событийную процедуру  cmd1_Click(), реализующую заполнение массива  случайными числами(см. предыдущую работу). . 2. Определить переменные для всего  программного модуля. Преобразовать  событийную процедуру из проекта «Поиск в  числовом массиве» в общую процедуру  МинЭлемент(bytI, bytN As  Byte),набранную в программном коде: Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK,  bytR, bytN As Byte ‘Общая процедура поиска минимального  элемента Sub МинЭлемент(bytI, bytN As Byte) bytMin = bytA(bytI) bytN = bytI For bytJ = bytI + 1  To 10 If  bytA (bytJ) < bytMin  Then  bytMin = bytA(bytJ): bytN=bytJ Next bytJ End Sub Создать событийную процедуру сортировки.  Для осуществления перестановки использовать  промежуточную переменную bytR. Для  визуализации процесса сортировки для каждого  цикла перестановки элементов (цикл по  переменной bytI) в цикле по переменной bytK   выводить в текстовое поле txtSort значения  элементов массива. 3. ‘ Событийная процедура сортировки Private Sub cmd2_Click() txtSort .Text = “ “ For bytI = 1 To 9 ‘ Вызов общей процедуры поиска минимального  элемента Call МинЭлемент(bytI, bytN) ‘ Перестановка bytR = bytA (bytI) bytA (bytI) = bytA (bytN) bytA (bytN) = bytR ‘Печать массива для каждого цикла  перестановки For bytK = 1 To 10 txtSort . Text = txtSort . Text + Str(bytA(bytK)) Next bytK Next bytIEnd Sub 4. Запустить проект. Щёлкнуть по кнопкам  Заполнить массив и Сортировать. В текстовом поле будет реализована визуализация процесса сортировки  числового массива по шагам.