 |
|
Однорядковий синтаксис
If < умова > Then < оператор 1 > [Else < оператор 2 >]
Функціонує оператор так: якщо ума після If істина, то виконується оператор 1, який указано після Then. Якщо умова хибна, то виконується оператор 2, який указано після Else
Приклад 4.1Однорядковий синтаксис оператора If Then. Скласти блок-схему алгоритму та розробити на Visual Basic проект для розрахунку 
. На формі розмістити дві командні кнопки, задати властивості об’єктів. Введення та виведення даних організувати через системні вікна.
Рис. 4.1 Макет форми (об’єкти та значення властивості Caption)
Рис. 4.2 Блок-схема алгоритму рішення задачі
Програмний код кнопки "Розрахувати"
Private Sub Command1_Click()
Dim X As Single
Dim Y As String
X = InputBox("Введіть X", "Вікно введення даних")
If X >= 0 Then Y = Str(Sqr(X)) Else Y = "не існує"
MsgBox "Корінь із " & X & " " & Y, 0, "Вікно виводу"
End Sub
Програмний код кнопки "Вихід"
Private Sub Command2_Click()
End
End Sub
Блочний синтаксис
If < умова 1 > Then
[ < оператори 1 > ]
[ElseIf < умова 2 >] Then
[ < оператори 2 > ]
...
Else
[ < оператори n > ]
End If
Приклад 4.2.Блочний синтаксис складного розгалуження. Скласти блок-схему алгоритму та розробити проект на VB для розрахунку значення виразу:
Х – ціле число. Введення та виведення даних здійснити через системні вікна за допомогою функцій InputBox та MsgBox
На формі розмістити три командні кнопки:
¾ Command1 з програмним кодом, який містить блочну конструкцію If…Then…Else;
¾ Command2 з програмним кодом, який містить оператор Select…Case;
¾ Command3 програмний код виходу.
Рис. 4.3 Макет форми (об’єкти та значення властивості Caption)
Синтаксис конструкції Select…Case
Select Case < вираз_що_перевіряється >
[Case < значення 1 >
[ оператори 1]]
[Case < значення 2 >
[ оператори 2 ]]
…
[Case Else
[ оператори n ]]
End Select
<вираз_що _перевіряється> – любий числовий або символьний вираз
<значення n> – вираз, який може мати одну з наступних форм:
¾ <вираз 1> [,< вираз 2>...]
¾ <вираз 1> ТО <вираз 2>
¾ IS <вираз з операцією>
Рис. 4.4 Блок-схема алгоритму рішення задачі
Програмний код кнопки "КонструкціяSelect…Case"
Private Sub Command2_Click()
Dim X, Y As Integer
X = InputBox("Введіть значення Х", "Вікно введення даних")
Select Case X
Case Is >= 10
Y = Sqr(X)
Case Is <= -10
Y = Abs(X)
Case -10 To 10
Y = X ^ 2
End Select
MsgBox "При Х=" & X & " Y=" & Y, 0, "Вікно виводу результатів"
End Sub
Завдання для практичного виконання по темі 4