Правила записи многострочного If
Вот синтаксис многострочного оператора If:
If условие Then
операторы
операторы
…………….
[ ElseIf условие Then
операторы
операторы
……………. ]
……………………….….
[ Else
операторы
операторы
……………. ]
End If
Ветвей ElseIf может быть сколько угодно или совсем не быть. Ветвь Else может присутствовать, а может отсутствовать. Если она есть, то одна и стоит последней.
Имейте в виду, что у вас нет права и вы не сможете, экономя место по вертикали экрана, объединять строки многострочного оператора If, например, так:
If условие Then операторы ElseIf операторы
и переносить слова Then, ElseIf и другие со своего законного места, например, так:
If
условие
Then
операторы
ElseIf
операторы
Кое в чем вам могут помочь двоеточия.
Задание 13.
Определите без компьютера, что напечатает данная процедура:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = 0
If 3 > 2 Then
a = a + 1
a = a + 2
ElseIf 3 > 2 Then
a = a + 4
End If
a = a + 10
If 3 < 2 Then
a = a + 20
ElseIf 3 > 2 Then
a = a + 40
a = a + 100
Else
a = a + 200
End If
a = a + 500
If 3 < 2 Then
a = a + 1000
ElseIf 3 < 2 Then
a = a + 2000
Else
a = a + 4000
End If
a = a + 8000
Debug.WriteLine(a)
End Sub
Если у вас не сошлось с ответом – это катастрофа, значит вы чего-то не понимаете. В этом случае запустите процедуру в пошаговом режиме, который вам все объяснит.
Задание 14.
Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Колю – «Привет», Васю – «Здорово», Джона – «Hi», а остальных – «Здравствуйте». Для Васи, кроме этого, он красит форму в зеленый цвет.
Задание 15.
Видоизменить диалог с компьютером, начатый в 5.6.2. Пусть компьютер, выяснив в разговоре имя и возраст человека, дальнейшую беседу ведет по двум вариантам. Если возраст больше 17, то компьютер должен задать вопрос: «В каком институте ты учишься?» и получив ответ, глубокомысленно заметить «Хороший институт». Если же возраст меньше или равен 17, то соответственно – «В какой школе ты учишься?» и «Неплохая школа». После этого, каков бы ни был вариант, компьютер должен попрощаться: «До следующей встречи!». Если хотите, можете запрограммировать продолжение разговора.
