Dim Строка As String
Строка = txtLeft.Text
txtLeft.Text = txtRight.Text
txtRight.Text = Строка
End Sub
Private Sub cmdПУСК2_Click()
Dim ЦветФона As Long, ЦветБукв As Long
ЦветФона = txtLeft.BackColor
txtLeft.BackColor = txtRight.BackColor
txtRight.BackColor = ЦветФона
ЦветБукв = txtLeft.ForeColor
txtLeft.ForeColor = txtRight.ForeColor
txtRight.ForeColor = ЦветБукв
End Sub
5. Сохраните проект под именем Лр10_Зад10_Фамилия
6. Проверте правильность работы проекта.
ЗАВДАННЯ 10.11. Ilостановка задачи:ВЫПОЛНИТЕ ПРОЕКТ, В КОТОРОМ:
ü ОДНОМЕРНЫЙ МАССИВ ИЗ 10 ЭЛЕМЕНТОВ ЗАПОЛНЯЕТСЯ ЦЕЛЫМИ СЛУЧАЙНЫМИ ЧИСЛАМИ В ДИАПАЗОНЕ ОТ 1 ДО 9;
ü ПРОИЗВОДИТСЯ СОРТИРОВКА ЭЛЕМЕНТОВ МАССИВА ПО УБЫВАНИЮ: МЕТОДОМ "ПУЗЫРЬКА"; МЕТОДОМ УЛУЧШЕННОГО "ПУЗЫРЬКА"; МЕТОДОМ "ВЫБОРА". Вид работающего приложения представлен на рис.10.7.
Рис. 10.7