29. Структури з умовами. Повний умовний оператор. Використання логічних операторів в умовних виразах.

Оператори керування порядком виконання команд

Оператори керування порядком виконання команд застосовуються в наступних прикладах. Вони дозволяють оцінити реальну ситуацію й адекватно реагувати на неї, приймаючи рішення про подальші дії. Visual Basic надає для цього ряд функцій і операторів.

Оператор If...Then.. Else.

Оператор If...Then.. Else – це повний умовний оператор. Його скорочена форма оператор If...Then має наступний синтаксис

If умова Then

оператор

End If

Дія оператора: якщо умова після If істинна, тобто результат дорівнює True, виконується оператор, назначений за Then. Якщо ж результат дорівнює False, то виконується наступний оператор:

If умова Then

Оператор1

Else

Оператор2

End If

Приклад

Private Sub Command1_Click()

a = 6

If a = 7 Then

Print "visual"

Else

Print "basic"

End If

End Sub

Приклад. Упорядкувати числа за спаданням.

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Max = a

If b > Max Then Max = b

If c > Max Then Max = c

Print Max

Min = a

If b < Min Then Min = b

If c < Min Then Min = c

If a < Max And a > Min Then Print a

If b < Max And b > Min Then Print b

If c < Max And c > Min Then Print c

Print Min

End Sub

Блоковий синтаксис

If умова1 Then

Оператор 1

ElseIf умова2 Then

Оператор 2

Else

Оператор 3

End If

Приклад. Підрахуємо податок залежно від зарплати.

Private Sub Command1_Click()

Dim z, n As Integer

z = Val(Text1.Text)

If z <= 200 Then

n = z * 0.15

ElseIf z >= 200 And z <= 500 Then

n = z * 0.2

Else

n = z * 0.28

End If

Label3.Caption = Str(n)

End Sub

У принципі блоковий запис надає такі ж можливості, як і однорядковий, але якщо в залежності від умови необхідно виконати не просту команду, а групу операторів, варто використовувати блоковий синтаксис. При формуванні більш складних умов блоковий запис зручніший. Використання в цьому випадку блокового синтаксису покращує читабельність програми.

29. Оператор Select Case. Призначення. Приклади.

Ще одним оператором розгалуження Visual Basic є Select Case, що дозволяє виконати одну з декількох груп операторів у залежності від значення умови. Інструкція Select Case має наступний синтаксис:

Select Case Перевірочний вираз

Case Значення 1

Оператори 1

Case Значення 2

Оператори 2

Case Else

Оператори З

End Select

Для блоку Case можна вказувати не тільки одне значення (1), але і декілька, розділених комами (2, 3). Можна визначити також області порівняння (4 То 6) або скористатися відносним порівнянням (Is >= 9). Замість безпосереднього перевірочного виразу можна використовувати ключове слово (Is=”3”). Блок Case Else виконується, якщо жодна з попередніх умов не є істинною.

Приклад

Private Sub Command1_Click()

n = Int(Rnd * 10) + 1 {генератор випадкових чисел}

Select Case n

Case 1

Print " internet"

Case 2

Print "Україна"

Case 3

Print "basic"

Case Else

Print "Ivanenko"

End Select

End Sub