Page 59 - 4788

Блоковий синтаксис
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

Рисунок 4.2 – Інтерфейс

виконання прикладу

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

57