Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Конструкция Select Case

End If

Else

ElseIf objFilm.Color Then

Оператор условного перехода If…Then… Else

End If

Конструкция If…Then… Else аналогична конструкции If…Then, но позволяет задать действия, исполняемые как при выполнении, так и при невыполнении условий (оператор Else). При этом синтаксис условного перехода:

If условие Then

(операторы, выполняющиеся, когда условие принимает значение True)

Else

(операторы, выполняющиеся, когда условие принимает значение False)

End If

Если нужно проверить, кроме основного, ещё и другие условия, используется ключевое слово ElseIf. Оператор Else при этом необязателен, но если он присутствует, то должен быть в структуре последним, в частности:

If x > 10 Then

Label1.Text = "Значение положительное"

ElseIf x = 0 Then

Label1.Text = "Значение равно нулю"

Else

Label1.Text = "Значение отрицательное"

End If

Структуры If…Then и могут вкладываться друг в друга.

Ещё один пример применения условного перехода If…Then… Else:

If objFilm.ExpDate < Date Then

MsgBox "Эта пленка никуда не годится"

ElseIf objFilm.Type = "Слайд" Then

Слайд = Слайд + 1

ЦветНегатив = ЦветНегатив + 1

ЧернобелНегатив = ЧернобелНегатив + 1

 

Первый оператор проверяет срок годности пленки, и если он превышен, то выдается сообщение в окне MsgBox.

Если пленка годная, т. е. первое условие False, то выполняется второй оператор, который проверяет свойство – тип пленки, слайдовая или нет.

Если плёнка слайдовая (True), то выполняется следующий оператор: в количество пленок такого типа добавляется 1.

Если же условие не выполняется (False), то выполняется следующая операция ElseIf – проверка цвета пленки (цветная или нет).

Если плёнка цветная (True), то в счетчик цветных негативных добавляется 1.

Если False, то осуществляется переход к последнему оператору – Else и добавление в счетчик черно-белых плёнок единицу, после чего операция выбора заканчивается.

 

Оператор If…ElseIf хорошо подходит для принятия решений на основе последовательной проверки уменьшающегося количества значений по различным условиям. Если же приходится проверять одно и то же количество значений в сравнении с различными условиями, то более эффективным, простым в записи и удобочитаемым является оператор Select Case (Case – отдел).

Синтаксис оператора Select Case:

 

Select Case значение

Case критерий1

(операторы, выполняемые, когда значение удовлетворяет критерию 1)

Case критерий2

(операторы, выполняемые, когда значение удовлетворяет критерию 2)

дополнительные операторы Case

<== предыдущая лекция | следующая лекция ==>
Оператор условного перехода If…Then | Оператор цикла For Each… Next
Поделиться с друзьями:


Дата добавления: 2014-01-05; Просмотров: 454; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.011 сек.