Конструкции языка
Конструкции языка позволяют изменять порядок выполнения операций (ветвление) или неоднократно повторять последовательность действий в
зависимости от определённого условия (циклы).
Краткая справочная информация об основных конструкциях языка приведена в приложении 2.
Лабораторное занятие № 4
Цель занятия: привить студентам навыки работы с переменными и массивами. Обучить приёмам использования основных конструкций языка Visual Basic.
Задание 1. Массивы, конструкции языка (ветвление, циклы)
Рассмотрим технологию обработки массивов и построение конструкций языка на конкретном примере.
Требуется создать программу сортировки пяти целых чисел по возрастанию. Совокупность числовых значений рассматривать как одномерный массив, состоящий из пяти элементов. В качестве инструмента сортировки использовать простейший алгоритм поплавка. При котором, числа, имеющие меньший удельный вес (меньшее значение), “всплывают”.
Создайте новый проект Visual Basic.
На форме разместите следующие объекты в соответствие с рис. 27:
метку (Label1),
пять текстовых полей (Text1 – Text5),
управляющую кнопку (Command1).
Для указанных свойств объектов присвойте следующие значения (табл. 5):
Таблица 5
|
Объекты |
Свойства |
Значения |
|
Форма1 |
Caption |
Сортировка |
|
Icon |
VB Учебные \ Фотогаллерея \ ico \ Graph14.ico |
|
|
Label1 |
Caption |
Введите пять чисел |
|
Text1, Text2, Text3, Text4, Text5 |
Alignment |
1 Выровнять по Правому Краю |
|
MaxLength |
4 |
|
|
Text |
0 |
|
|
Command1 |
Caption |
Сортировать |
Алгоритм включает два вложенных цикла. Внутренний цикл (переменная j) содержит условие проверки двух смежных значений массива PU. Если расположенный выше элемент массива имеет большее значение, он перемещается ниже. При этом используется буферная переменная Sh, в которой временно сохраняются перемещаемые элементы массива.
После очередного прохода наращивается на 1 переменная внешнего цикла i.
Программный код с комментариями (выделены курсивом) приведён ниже.
Рис. 27. Интерфейс приложения.
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
End If
j = j + 1
Loop
j = 0
i = i + 1
Loop
'Пересылка значений элементов массива в текстовые поля
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))
End Sub
После создания программного кода сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения. Для этого загрузите исполняемый файл (файл с расширением ехе) введите пять числовых значений и выполните их сортировку.
Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 08 Пузырёк).
Найдите свойство формы Picture. Используя кнопку с многоточием, расположенную в поле свойства, измените картинку.
Закройте Visual Basic без сохранения проекта.