3864

Управляющие операторы или принятие решений в VB6

Лабораторная работа

Информатика, кибернетика и программирование

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

Русский

2012-11-09

428.5 KB

10 чел.

Управляющие операторы или принятие решений в VB6 .

Операторы, которые могут изменить последовательность выполнения операторов процедуры.

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

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

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

Операция

Обозначение

Истолкование

1

Отрицание (инверсия)

not A

Не А;

Неверно, что А

2

Конъюнкция (логическое произведение, логическое И)

А and В

А и В; как А, так и В;

А вместе с В; А в то время, как В

3

Дизъюнкция (логическое сложение, логическое ИЛИ)

А or В

А или В;

А или В или оба

4

Дизъюнкция (исключающее ИЛИ)

А xor В

А либо В; А или В, но не оба

Приоритеты выполнения логических операций в логических выражениях:

  1.  Отрицание
  2.  Логическое произведение
  3.  Логическое сложение, исключающее или

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

Таблицы истинности для основных логических операций:

А

В

Not A

A and B

A or B

A xor B

0

0

1

0

0

0

0

1

1

0

1

1

1

0

0

0

1

1

1

1

0

1

1

0

If . . . Then 

Может иметь простую однострочную или блочную структуру.

Однострочный синтаксис

If Условие Then Оператор [Else Оператор]

Если условие после If истинно, т.е. результат = True, то выполняется оператор после ключевого слова Then. Если результат = False, то выполняется оператор, следующий за ключевым словом Else, если таковое имеется.

If a= 7 Then Beep

If x < 9 Then Print “False!” Else Print “True!”

Блочный синтаксис

If Условие Then 

Операторы 1

[Elseif условие Then

Операторы 2]

Else 

Операторы 3

End if

Блочный синтаксис используется, когда необходимо выполнить не простую команду, а группу операторов.

Пример. Решение квадратного уравнения ax2 + bx + c = 0

d=b*b – 4 * a * c

If d < 0 then

Print “Уравнение не имеет корней”

Elseif d = 0 Then

x = -b / (2*a)

Print “Уравнение имеет один корень”; x

Else

x1 = (-b + sqr(d)) / (2 * a)

x2 = (-b - sqr(d)) / (2 * a)

Print “Уравнение имеет два корня ”; x1, x2

End if

Select Case(оператор выбора)

Позволяет выполнить одну из групп операторов в зависимости от значения условия.

Синтаксис

Select Case тест_выражение

Case список_выражений1

[Операторы 1]

[Case список_выражений2

[Операторы 2] ]

. . .

[Case Else

[Операторы 3] ]

End Select

Пример 1. Решение квадратного уравнения ax2 + bx + c = 0

Select Case b * b - 4 * a * c

Case Is < 0

Print "Уравнение не имеет корней"

Case Is = 0

x = -b / (2 * a)

Print "Уравнение имеет один корень"; x

Case Else

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Print "Уравнение имеет два корня "; X1, X2

End Select

Пример 2. Проанализировать случайное число, заданное от 0 до 10.

Private Sub Command1_Click()

Randomize

a = Int(Rnd * 9) + 1 'случайное число от 1 до 10

Select Case a

Case 1 Print "Равно 1"

Case 2, 3 Print "Равно 2 или 3"

Case 4 To 6 Print "Больше или равно 4 и меньше или равно 6"

 Case Is >= 9 Print "Больше или равно 9"

 Case Else Print "Ни одно из предшествующих"

End Select

End Sub


ЗАДАЧА

Создать проект вычисления скорости бегуна на некоторой дистанции.




 

А также другие работы, которые могут Вас заинтересовать

12817. Исследование стабилизированного преобразователя постоянного напряжения 699 KB
  Лабораторная работа №9 Исследование стабилизированного преобразователя постоянного напряжения 1.Цель работы Изучение схемы и принципа действия стабилизированного преобразователя постоянного напряжения СППН и экспериментальное определения его параметро
12818. Исследование однофазного двухполупериодного тиристорного выпрямителя 2.7 MB
  Лабораторная работа №10 Исследование однофазного двухполупериодного тиристорного выпрямителя 1.Цель работы Знакомство с построением и принципом действия снятие основных характеристик однофазного двухполупериодного тиристорного управляемого выпрямител...
12819. Исследование полупроводникового стабилизатора напряжения непрерывного действия 751 KB
  Лабораторная работа №11 Исследование полупроводникового стабилизатора напряжения непрерывного действия 1. Цель работы Изучение принципа действия полупроводникового компенсационного стабилизатора напряжения непрерывного действия экспериментальное исс
12820. Исследование работы феррорезонансного стабилизатора напряжения 295 KB
  Изучение и экспериментальное исследование основ феррорезо-нансной стабилизации напряжения на базе промышленного образца феррорезонансного стабилизатора, снятие его основных рабочих характеристик.
12821. ИССЛЕДОВАНИЕ ПРЕОБРАЗОВАТЕЛЯ ПОСТОЯННОГО НАПРЯЖЕНИЯ 176.5 KB
  ЛАБОРАТОРНАЯ РАБОТА №15 ИССЛЕДОВАНИЕ ПРЕОБРАЗОВАТЕЛЯ ПОСТОЯННОГО НАПРЯЖЕНИЯ Цель работы Изучение схемы и принципа действия стабилизированного преобразователя постоянного напряжения СППН и экспериментальное определения его параметров. Литер...
12822. ТВЕРДОТЕЛЬНОЕ МОДЕЛИРОВАНИЕ ДИСКОВЫХ ФРЕЗ ФАСОНННОГО ПРОФИЛЯ ДЛЯ ПОЛУЧЕНИЯ ВИНТОВОЙ КАНАВКИ СВЕРЛА 1.37 MB
  ТВЕРДОТЕЛЬНОЕ МОДЕЛИРОВАНИЕ ДИСКОВЫХ ФРЕЗ ФАСОНННОГО ПРОФИЛЯ ДЛЯ ПОЛУЧЕНИЯ ВИНТОВОЙ КАНАВКИ СВЕРЛА Цель работы: спроектировать твердотельную модель фрезы для обработки винтовой канавки сверла. Построение исходного профиля канавки сверла. Для создани
12823. Схемы и средства измерений отклонений расположения поверхностей и осей 1.86 MB
  Лабораторная работа № 2 Схемы и средства измерений отклонений расположения поверхностей и осей Цель работы: изучить схемы и средства контроля отклонения от параллельности оси и плоскости отклонения от перпендикулярности оси и плоскости отклонения от перпендикул
12824. Измерение отклонений расположения и суммарных отклонений формы и расположения тел вращения 4.94 MB
  Лабораторная работа №4 Измерение отклонений расположения и суммарных отклонений формы и расположения тел вращения. Цель работы: Изучить методы и средства измерений отклонения от соосности отклонения от параллельности плоскостей радиального торцевого и по
12825. Выбор универсальных средств измерения (СИ) линейных размеров деталей «вал» и «фланец» 852.5 KB
  Лабораторная работа №2 дополнение Выбор универсальных средств измерения СИ линейных размеров деталей вал и фланец Цель работы: освоить директивный подход к выбору универсальных СИ. Теоретическая часть Факторы которые необходимо учитывать при выборе уни