Уроки по Visual Basic 6.0 – Конструкция IF-Then-Else Обучающий материал
Проверка условий в Visual Basic осуществляется с помощью конструкции IF-Then-Else. Синтаксис конструкции имеет следующий вид:
Рассмотрим работу конструкции на конкретном примере.
Создадим новый проект и добавим на форму три объекта: Label1, Text1 и Command1 (рисунок 1).
Рисунок 1 – Вид формы после добавления нужных объектов
В Label1 будем выводить обработанную с помощью конструкции IF-Then-Else информацию. С Text1 будем считывать значения, которые ввел пользователь. Command1 – кнопка, при нажатии на которую будет выполняться написанный нами код.
Составим задачу, которую нужно решить с помощью конструкции IF-Then-Else.
Пусть пользователь вводит любую цифру. Если эта цифра меньше 45, то выводим надпись: «Введенная цифра соответствует заданному ограничению». Если введенная пользователем цифра больше или равна 45, то выводим: «Введите другое значение».
Запишем код, который будет соответствовать решению данной задачи:
Запишем этот код в процедуру Command1_Click() и запустим проект. При тестировании программы видно, что задача решена верно (рисунок 2, рисунок 3).
Рисунок 2 – Результат при истинном условии
Рисунок 3 – Результат при ложном условии
IF условие Then - Команды, которые выполняются при истинном условии
Else - Команды, которые выполняются при ложном условии
End IfРассмотрим работу конструкции на конкретном примере.
Создадим новый проект и добавим на форму три объекта: Label1, Text1 и Command1 (рисунок 1).
Рисунок 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).
Рисунок 2 – Результат при истинном условии
Рисунок 3 – Результат при ложном условии
9 комментариев