Ветвящимся называется процесс, действия которого должны или не должны выполняться в зависимости от соблюдения заданных условий.

     Задание: На языке Visual Basic составить программу для расчета функции у с использованием различных условных операторов.

     1. Запустите систему программирования Visual Basic или создайте новый проект, если Visual Basic уже запущен.

     2. Создайте форму и разместите на ней элементы управления по предложенному ниже образцу, используя соответствующие кнопки панели элементов:

Рисунок 5 – Внешний вид формы с объектами

     3. Присвойте элементам управления на форме значения свойств в соответствии с приведенной ниже таблицей.

     4. Для каждой кнопки введите соответствующий программный код. В данном случае рассмотрим 3 различных варианта программы:

Вариант 1 – с применением краткой формы оператора If…Then (кнопка CommandButton1)

Private Sub CommandButton1_Click()
'Запускается программа Sub командной кнопкой 1
Dim a As Integer
Dim b As Integer
Dim y As Single
' Задание типов переменных a, b, y, где a, b - целые числа, y - дробное (вещественное) число
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
' Ввод значений a и b через текстовые поля 1, 2
If b < 2 Then y = a + b
' Проверка значения b < 2 и вычисление y по ответу да
If (b >= 2) And (b <= 5) Then y = 3 * a + b ^ 3
' Проверка значения b и вычисление y по ответу да
If b > 5 Then y = Sqr(a + b)
' Проверка значения b > 5 и вычисление y по ответу да
TextBox3.Text = CStr(y)
' Вывести значение на экран в текстовое поле 3
End Sub
'Конец программы Sub

Вариант 2 – с применением полной формы оператора If…Then…Else (кнопка CommandButton2)

Private Sub CommandButton2_Click()
'Запускается программа Sub командной кнопкой 2
Dim a As Integer
Dim b As Integer
Dim y As Single
' Задание типов переменных a, b, y, где a, b - целые числа, y - дробное (вещественное) число
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
' Ввод значений a и b через текстовые поля 1, 2
If b < 2 Then
y = a + b
Else
If b > 5 Then
y = Sqr(a + b)
Else
y = 3 * a + b ^ 3
End If
End If
' Проверка условий и расчет значений функции
TextBox4.Text = CStr(y)
' Вывести значение на экран в текстовое поле 4
End Sub
'Конец программы Sub

Вариант 3 – с использованием оператора Select Case (кнопка CommandButton3)

Private Sub CommandButton3_Click()
'Запускается программа Sub командной кнопкой 3
Dim a As Integer
Dim b As Integer
Dim y As Single
' Задание типов переменных a, b, y, где a, b - целые числа, y - дробное (вещественное) число
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
' Ввод значений a и b через текстовые поля 1, 2
Select Case b
Case Is < 2
y = a + b
Case 2 To 5
y = 3 * a + b ^ 3
Case Is > 5
y = Sqr(a + b)
End Select
' Проверка условий и расчет значений функции
TextBox5.Text = CStr(y)
' Вывести значение на экран в текстовое поле 5
End Sub
'Конец программы Sub

     5. Сохраните созданный проект в своей папке используя команду меню «Файл» - «Сохранить проект как» (или «File» - «Save Project As»).

     6. Запустите программу на выполнение командой меню «Пуск» - «Старт» (или «Run» - «Start»).

     7. Проверьте правильность работы программы. Для этого в соответствующие поля введите следующие значения переменных:

а = 1; b = 1 – в результате при нажатии каждой кнопки должно получиться у= 2.
а = 3; b = 3 – в результате должно получиться значение у = 36.
а = 8; b = 8 – в результате должно получиться значение у = 4.

Практика