Лекция: Лабораторная работа 5.1. Алгоритмы ветвления с применением оператора If.

Задание: Используя оператор If…Else, сравнить две переменные по условию:

Равны ли две переменные?
X больше Y?
X меньше Y?

Ход работы:

1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)

2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)

3. Создайте на форме элементы управления, как показано на рисунке 5.1.

Рисунок 5.1. Элементы управления и их свойства к лабораторной работе 5.1.

4. Откройте редактор кода и напишите следующий код:

Private Sub cmdCompare_Click()

Dim dblX As Double

Dim dblY As Double

dblX = txtX.Text

dblY = txtY.Text

'Проверка на равенство двух чисел

If dblX = dblY Then

MsgBox «X равно Y»

Else