Уроки по 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 – Результат при ложном условии

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

Kennethlek
заказать алкоголь на дом спб
19.05.10 19:30 2 года покупаем на все мероприятия.

И на свадьбу тоже будем брать.
алкоголь в канистрах спб
Идеальное качество. Все довольны!!!

алкоголь в канистре в
Тем: 0 Сообщений: 5 На форуме с 21/06/10.
алкоголь в канистре в — Алкоголь в канистрах в спб.

04.07.10 02:34 мне тут тоже насоветовали.
Kennethlek





— Алкоголь в канистрах в спб.
ArthurVeito
Очень долго искала стоматологию куда можно было бы обратится, решила пойти и не пожалела. Персонал сердечный. Удаляла зуб, удалили безболезненно и без последствий. За одно и сделала чистку, и была очень довольна все отлично. Зубы стали белее, знаю точно что по моим рекомендациям на чистку зубов пришло еще 3 человека. Так что, советую стоматологию Миллениум, не пожалеете. Ходила сюда:
Стоматология цены
Мне эта поликлиника Миллениум понравилась очень отличной. Всего наилучшего!
ArthurvaM
clck.ru/EtfqU — реклама на футболках
Интернет магазин уникальных футболок. Мы предлагаем Вам только качественные и уникальные товары. На Ваш выбор толстовки, футболки, головные уборы, чехлы, посуда, аксессуары и вещи для интерьера.
Вы с легкостью сможете подобрать рисунок, который Вам нравится или же сделать свой уникальный с помощью конструктора.
Приобретя товр Вы можете воспользоваться услугами доставки на очень выгодных условиях.
Заходи и заказывай:
supermayki-ok.ru — Кепка снепбек с прямым козырьком
DavidJal
Комплект часы Emporio Armani и клатч Emporio Armani

clck.ru/EXwqZ

Элитный мужской комплект от легендарного бренда Emporio Armani — культовые наручные часы и стильный клатч. Непревзойденное качество, максимальная надежность и уникальный дизайн.
***^
DavidJal
u.to/wbc2FA Скатерть «Мягкое стекло»
Скатерть «Мягкое стекло» — это очень красивое, и в то же время практичное изделие.
Она не мнется и не нуждается в стирке, не боится случайно пролитого кипятка и жирных пятен.
Просто протрите влажной тряпкой — и скатерть как новая
***^
DennissCuct
Ктп 100.250.400.630ква, КТП КОМПЛЕКТНЫЕ ТРАНСФОРМАТОРНЫЕ ПОДСТАНЦИИ москва, Производство ктп москва и не только на нашем специализированном сайте Здесь есть то, что Вам нужно!https://sviloguzov.ru/
ArthurvaM
bit.do/eHQtF — Podushka
Интернет магазин уникальных футболок. Мы предлагаем Вам только качественные и уникальные товары. На Ваш выбор толстовки, футболки, головные уборы, чехлы, посуда, аксессуары и вещи для интерьера.
Вы с легкостью сможете подобрать рисунок, который Вам нравится или же сделать свой уникальный с помощью конструктора.
Приобретя товр Вы можете воспользоваться услугами доставки на очень выгодных условиях.
Заходи и заказывай:
supermayki-ok.ru — Кепка снепбек с прямым козырьком
DavidJal
Упор поясничный Seat Back

u.to/CoMzFA

Уникальный поясничный упор, помогающий избавиться от распространенных проблем с позвоночником всего за четыре недели.
Быстро снимает боль в спине, уменьшает нагрузку на позвонки и помогает держать осанку в положении сидя
***^
Montyrew
Дизайн интерьера в Хакасии
Фирма «ARTPROEKT» предлагает создать дизайн интерьера по доступной стоимости без не нужных переплат.
Команда дипломированных специалистов работает на результат и качество!
Строгое соблюдение сроков способствует значительному сокращению временных издержек, что возможность достичь хорошего итога.
При Вашем обращении подробно расскажем обо всех особенностях создаваемого дизайна интерьера.
В нашей фирме трудятся сотрудники, которые обладают в совершенстве всеми тонкостями дизайнерского ремонта домов.
Обращайтесь, работаем на творческом подходе, учитывая личные предпочтения и финансовое заказчика.
Кухня дизайн интерьер
Dennismem
Occupation hosting implies that you also seize set the thames on fire more button for how the server is configured. You can add and dispose of software, institute updates or jerk all settings, allowing you to optimize the server in the service of your clear-cut needs.
Best of all, design hosting contracts often happen with devoted and knowledgeable support. The beat providers will even monitor your server looking for issues, like failed services, and can time after time connect them ahead of you've realized there was a problem bestrusthosting.com.
Montyrew
Дизайн интерьера в Хакасии
Фирма «ARTPROEKT» предлагает сделать дизайн интерьера по доступной цене без лишних переплат.
Команда квалифицированных профессионалов работает на результат и качество!
Точное соблюдение договоренностей способствует значительному сокращению временных издержек, что предоставляет достигнуть отличного результата.
При Вашем обращении подробно расскажем обо всех нюансах выполняемого дизайна интерьера.
В нашей студии работают профессионалы, которые владеют в совершенстве всеми нюансами дизайнерского ремонта квартир.
Приходите, работаем на комплексном подходе, учитывая личные пожелания и состояние покупателя.
Дизайн студия
DavidJal
Монокуляр Bushnell + часы Patek Philippe в подарок!
u.to/NYAzFA
Новый сверхмощный монокуляр Bushnell с функцией ночного видения — незаменимая вещь для наблюдения на рыбалке и охоте.
Поле зрения: 8 км, кратность увеличения: 16Х. Каждому покупателю — часы в подарок.
***^
ArthurvaM
clck.ru/FCF9a — как сложить футболку видео
Интернет магазин уникальных футболок. Мы предлагаем Вам только качественные и уникальные товары. На Ваш выбор толстовки, футболки, головные уборы, чехлы, посуда, аксессуары и вещи для интерьера.
Вы с легкостью сможете подобрать рисунок, который Вам нравится или же сделать свой уникальный с помощью конструктора.
Приобретя товр Вы можете воспользоваться услугами доставки на очень выгодных условиях.
Заходи и заказывай:
supermayki-ok.ru — Мужские трусы 3D
Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.