Уроки по Visual Basic 6.0 – Конструкция IF-Then-Else Обучающий материал

Проверка условий в Visual Basic осуществляется с помощью конструкции IF-Then-Else. Синтаксис конструкции имеет следующий вид:

IF условие Then - Команды, которые выполняются при истинном условии
Else - Команды, которые выполняются при ложном условии
End If

Рассмотрим работу конструкции на конкретном примере.

Создадим новый проект и добавим на форму три объекта: Label1, Text1 и Command1 (рисунок 1).

Уроки по Visual Basic 6.0 – Конструкция IF-Then-Else
Рисунок 1 – Вид формы после добавления нужных объектов

В Label1 будем выводить обработанную с помощью конструкции IF-Then-Else информацию. С Text1 будем считывать значения, которые ввел пользователь. Command1 – кнопка, при нажатии на которую будет выполняться написанный нами код.

Составим задачу, которую нужно решить с помощью конструкции IF-Then-Else.

Пусть пользователь вводит любую цифру. Если эта цифра меньше 45, то выводим надпись: «Введенная цифра соответствует заданному ограничению». Если введенная пользователем цифра больше или равна 45, то выводим: «Введите другое значение».

Запишем код, который будет соответствовать решению данной задачи:

Dim chislo As Integer
chislo = Val(Text1)
If chislo < 45 Then
Label1.Caption = "Введенная цифра соответствует заданному ограничению"
Else
Label1.Caption = "Введите другое значение"
End If

Запишем этот код в процедуру Command1_Click() и запустим проект. При тестировании программы видно, что задача решена верно (рисунок 2, рисунок 3).

Уроки по Visual Basic 6.0 – Конструкция IF-Then-Else
Рисунок 2 – Результат при истинном условии

Уроки по Visual Basic 6.0 – Конструкция IF-Then-Else
Рисунок 3 – Результат при ложном условии

0 комментариев

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