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