- •Мпс россии
- •Оглавление
- •1.Общие сведения для начинающего программиста
- •1.1. Компьютеры и программы
- •1.2. Программные приложения
- •1.3. Программа и алгоритм
- •1.4. Visual Basic – популярный язык программирования.
- •2. Проектирование Windows-приложения
- •2.1. Экранная форма, программный модуль, программный проект
- •2.2. Этапы создания приложения
- •2.2.1. Начальный этап проектирования - постановка задачи
- •2.2.2. Разработка интерфейса
- •2.2.3. Программирование
- •2.2.4 Заключительный этап проектирования
- •3. Основные конструкции языка программирования Visual Basic
- •3.1. Алфавит
- •3.2. Данные
- •3.2.1. Переменная
- •3.2.2. Константы
- •3.3. Оператор присваивания
- •3.4. Выражения и функции
- •3.4.2. Функции
- •3.4.3. Финансовые функции
- •3.5. Операторы условного и безусловного переходов
- •3.6. Операторы программирования повторений
- •3.6.1. Цикл со счетчиком
- •3.6.2. Вложенные циклы
- •3.6.3. Цикл с условием
- •4. Пример проектирования Windows-приложений Решение некоторых финансовых операций
- •Комментарии к работе приложения
- •Литература
- •Часть 1
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