Приднестровский государственный университет им. Т.Г. Шевченко

Л А Б О Р А Т О Р Н А Я Р А Б О Т А № 5

Тема: «Разработка приложений с разветвляющимися алгоритмами»

Цель работы:

изучение возможностей разработки приложений с разветвляющимися алгоритмическими структурами;

знакомство с элементами управления переключатель и флажок;

закрепление темы при создании приложений.

1. Разветвляющиеся алгоритмические структуры

Операторы в программе-обработчике событий выполняются в той последовательности, в которой они записаны. Однако достаточно часто требуется изменить порядок выполнения операторов в зависимости от выполнения (или невыполнения) определенного условия. Существуют управляющие конструкции, предназначенные для управления порядком выполнения операторов. Основанием для принятия решений в управляющих операторах является истинность или ложность условного (логического) выражения.

Логические выражения – это такие выражения, которые возвращают одно из двух значений True (Истина) или False (Ложь). Простые логические выражения содержат операции отношения (операции сравнения): = (равно), > (больше), < (меньше), <> (не равно), >= (больше или равно), <= (меньше или равно). Сложные логические выражения строятся из простых логических выражений и логических операций, примененных к ним.

Условные операторы предназначены для выбора на исполнение одного из возможных действий (операторов) в зависимости от некоторого условия, при этом одно из действий может отсутствовать.

1.1. Основные логические операции

Перечислим основные логические операции, используемые в Visual Basic. В приведенной таблице A и B – логические выражения.

Таблица 5.1. Основные логические операции

Операция	Обозначение	Описание	Приоритет
Логическое отрицание	Not A	Возвращает значение, противоположное операнду	1
Логическое умножение	A And B	Возвращает True тогда и только тогда, когда оба операнда возвращают True	2
Логическое сложение	A Or B	Возвращает True тогда и только тогда, когда хотя бы один операнд возвращает True	3
Исключающее Or	A Xor B	Возвращает True тогда и только тогда, когда один операнд возвращают True, а другой – False	4

Скобки меняют порядок выполнения операций.

1.2. Условный оператор If...Then

Конструкция If…Then применяется, когда необходимо выполнить определенные действия только в том случае, если значение некоторого условия равно «истина». 

Имеет две формы синтаксиса:

однострочную:

If Условие Then [Инструкции для обработки истинного Условия]

и блоковую:

If Условие Then

[Инструкции для обработки истинного Условия]

End If

Вначале вычисляется значение Условия (выражения логического типа). Если Условие истинно, то Инструкции выполнятся; если ложно, то выполнение не произойдёт.

Обычно однострочную форму используют, если инструкция одна. Если в однострочной форме инструкций несколько, то они разделяются двоеточием.

Пример. Найти максимальное из трех целых чисел.

1-й способ:

Dim a As Integer, b As Integer, c As Integer, max As Integer

a = InputBox("Введите первое число", "Ввод данных")

b = InputBox("Введите второе число", "Ввод данных")

c = InputBox("Введите третье число", "Ввод данных")

max = a

If b > max Then max = b

If c > max Then max = c

MsgBox "Максимальное число равно " & Str(max),vbInformation, "Результат"

2-й способ:

Dim a As Integer, b As Integer, c As Integer, max As Integer

a = InputBox("Введите первое число", "Ввод данных")

b = InputBox("Введите второе число", "Ввод данных")

c = InputBox("Введите третье число", "Ввод данных")

If (a >= b) And (a >= c) Then max = a

If (b >= a) And (b >= c) Then max = b

If (c >= a) And (c >= b) Then max = c

MsgBox "Максимальное число равно " & Str(max),vbInformation, "Результат"

Примечание. Скобки здесь не обязательны, но они повышают читабельность кода.