End Sub

Loop

Loop

End If

Option Explicit

Dim PU(4) As Integer 'Объявление массива

Dim Sh As Integer 'Объявление буферной переменной

Dim i%, j% 'Объявление переменных цикла

Private Sub Command1_Click()

'Заполнение массива PU данными

PU(0) = CInt(Text1)

PU(1) = CInt(Text2)

PU(2) = CInt(Text3)

PU(3) = CInt(Text4)

PU(4) = CInt(Text5)

i = 0: Sh = 0 'Инициализация переменных

Do While i <> 5 'Цикл всех проходов

Do While j <> 4 'Цикл одного прохода

If PU(j) > PU(j + 1) Then 'Условие погружения

Sh = PU(j)

PU(j) = PU(j + 1)

PU(j + 1) = Sh

j = j + 1

j = 0

i = i + 1

'Пересылка значений элементов массива в текстовые поля

Text1.Text = CStr(PU(0))

Text2.Text = CStr(PU(1))

Text3.Text = CStr(PU(2))

Text4.Text = CStr(PU(3))

Text5.Text = CStr(PU(4))

После создания программного кода сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения. Для этого загрузите исполняемый файл (файл с расширением ехе) введите пять числовых значений и выполните их сортировку.

Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 08 Пузырёк).

Найдите свойство формы Picture. Используя кнопку с многоточием, расположенную в поле свойства, измените картинку.

Закройте Visual Basic без сохранения проекта.

Задание 2. Конструкция Select Case

Создайте новый проект. Разместите на форме семь меток (Label 1 – 7), одно текстовое поле и управляющую кнопку Command1 (рис. 27).

Присвойте свойствам объектов значения, приведённые в таблице 6. Программный код должен реагировать на нажатие любой клавиши – событие KeyPress. Это событие выбирается из списка событий, который размещён в правой верхней части Редактора кода.

Таблица 6

Объекты	Свойства	Значения
Форма1	Caption	Дни недели
Label1 – Label7	Caption	Понедельник – Воскресенье
Visible	False
Label8	Caption	Номер дня недели
Text1	Text
MaxLength
Command1	Caption	Сброс

Рис. 27. Окно формы Дни недели.

При этом на экране должен появляться тот день недели, номер которого указан в текстовом окне.

Этот алгоритм рассмотрен во втором разделе (лабораторное занятие 2, задание 4).

Управляющая кнопка Сброс (Command1) используется для восстановления свойств меток (Label1 – 7). Эту операцию в дальнейшем будем называть инициализацией.

Создайте программный код приведённый ниже.

Дата добавления: 2014-12-27