Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.28
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.28

Dim a As Boolean

a = TextBoxl.Text = "red"

If a = True Then TextBoxl .BackColor = _

Color. Red

If a = False Then TextBoxl.BackColor = Color.Green

Если вы напечатаете любой текст (в том числе отдельную букву), текстовое поле окрасится в зеленый цвет, но если напечатать слово red, фон поля станет красным. Код, выполняющий примерно такую же работу, можно записать проще, без использования переменной.

If TextBoxl.Text = "red" Then TextBoxl.BackColor _ = Color.Red

If TextBoxl.Text = "green" Then TextBoxl.BackColor = Color.Green

Многострочный оператор If...Then

Этот оператор используется при составлении более сложных кодов, необходимых для выполнения нескольких действий. Синтаксис его выглядит так:

If условие Then Действие 1 Действие 2 Действие 3 End If

Обязательным условием является последняя строка End If, указывающая на окончание работы оператора.

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 6 ▼ Разветвляющиеся программы Оператор If—Then—Else К

Else переводится как «иначе». Данный оператор для начала проверяет первое условие и, если оно не выполняется, переходит ко второму; если и оно не выполняется, - к третьему и так далее. Как только встречается оператор с выполнимым условием, совершаются действия, стоящие после его Then, и на этом работа оператора заканчивается, то есть происходит переход к строке End If.

Приведем следующий пример. Поместим на форме текстовое поле TextBox и попробуем побеседовать с компьютером. Сделаем двойной щелчок по TextBox и напишем следующий код.

If TextBoxl.Text = "компьютер, ты умный" Then TextBoxl.Text = "ты тоже"

Else If TextBoxl.Text = "компьютер, ты глупый" TextBoxl.Text = "сам такой"

Else If TextBoxl.Text = "компьютер, ты глупый" TextBoxl .Text = "да уж поумней тебя буду" End If

Обратите внимание, что условия второго и третьего операторов совпадают. А вот выполнены будут только те инструкции, которые стоят после Then второго оператора и сразу последует переход к строке End If. Запустите программу, напечатайте в текстовом поле фразу «компьютер, ты глупый» и ответом будет «сам такой».


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta