3.5. Операторы условного и безусловного переходов

В языке Бейсик для организации переходов без всяких условий имеется оператор безусловного перехода. Его синтаксис таков:

Go To Метка

Где Go To – ключевое слово; Метка – символьная цепочка, которая может быть поставлена перед каким - либо оператором программного кода.

Например:

Go To М

После выполнения оператора Go To выполняется программная строка с меткой М.

Оператор условного перехода If имеет однострочную и многострочную формы записи. Синтаксис условного оператора при однострочной форме записи таков:

– If Логическое выражение Then Выполняемые операторы;

– If Логическое выражение Then Выполняемые операторы Else Выполняемые операторы.

Например, фрагмент программного кода с использованием оператора условного перехода имеет вид:

If X>0 Then Y = 0

If x>0 Then Y=0 Else Y=1

Синтаксис условного оператора при многострочной записи таков:

If Логическое выражение Then

Выполняемые операторы

Else

If Логическое выражение Then

Выполняемые операторы

Else

.

.

.

Выполняемые операторы

End If

End If

Пример 3.13

Следующий фрагмент программы помимо трёх условных операторов (If … Then …) содержит несколько операторов GoTo.

If c+b <= a Then GoTo МЕТКА1

If а+с <= b Then GoTo МЕТКА1

If а+b <= c Then GoTo МЕТКА1

GoTo МЕТКА2

МЕТКА1:

Print “а, b, с не являются сторонами треугольника”

GoTo МЕТКА 3

МЕТКА2:

Print “а, b, с являются сторонами треугольника”

МЕТКА 3:

Пример 3.14

Пусть вы хотите изобразить в графическом окне окружность одним из четырех цветов (красным, зеленым, желтым или черным).

Можно предложить следующий программный код:

If Цвет = «красный» Then color = vbRed

If Цвет = «зеленый» Then color = vbGreen

If Цвет = «желтый» Then color = vbRedYellov

If Цвет = «черный» Then color = vbBlack

If Фигура = «окружность» Then

Picture.Circle(x0, y0),R,Color

End If

Вы можете усмотреть в этой программе существенный изъян: в своей работе она будет делать лишние проверки условий.

Один из способов устранения этого изъяна приведен в следующем примере.

Пример 3.15

If Цвет = «красный» Then

color = vbRed

Else

If Цвет = «зеленый» Then

color = vbGreen`

Else

If Цвет = « желтый» Then

color = vbYellow

Else

If Цвет = «черный» Then

color = vbBlack

End If

End If

End If

End If

3.6. Операторы программирования повторений

Повторение – это многократное выполнение одного или нескольких предписаний алгоритма.

Цикл – это оператор языка программирования, с помощью которого это повторение будет выполнять компьютер – исполнитель алгоритма.

3.6.1. Цикл со счетчиком

Для того чтобы организовать повторения с заданным их числом, применяют оператор цикла For … Next. Этот оператор называют цикл со счетчиком.

Синтаксис этого оператора таков:

For Имя = Значение1 To Значение2 [Step Значение3]

Имя – Переменная (счетчик).

Значение1 – начальное значение счетчика.

Значение2 – конечное значение счетчика.

Значение3 – величина, на которую изменяется значение счетчика при одном повторении. Она называется шагом цикла (Step). Если Step отсутствует, то шаг цикла считается равным 1.

Пример 3.16

Рассмотрим следующую программу – процедуру для щелчка командной кнопки с именем Command1:

Private Sub Command1_Click()

For i=0 To 100 Step 20

Print i

Next i

End Sub