Часть 2.
Программирование разветвляющихся вычислительных процессов с использованием оператора выбора Select Case.
Замечание
При решении задачи предварительно построить интервальный ряд для анализа области существования решения.
Пример
w =
Текст программы (Часть 1, оператор If)
Sub Popov3()
Dim w, t As Single
Const e = 2.17
t = Val(InputBox("Введите значение t"))
If t < 10 Then
w = (1 / 2) * t ^ 2 - Sin(t)
End If
If (t >= 10) And (t <= 15) Then
w = e ^ (t + 1)\ End If
If t > 15 Then
w = Sin((t ^ 2) + 1)
End If
MsgBox "Результат w = " & w, , "Вывод результата"
End Sub
Текст программы (Часть 2, оператор Select Case)
Sub Popov3()
Dim w, t As Single
Const e = 2.17
t = Val(InputBox("Введите значение t"))
Select Case w
Case t < 10
w = (1 / 2) * t ^ 2 - Sin(t)
Case (t >= 10) And (t <= 15)
w = e ^ (t + 1)
Case t > 15
w = Sin((t ^ 2) + 1)
End Select
MsgBox "Результат w = " & w, , "Вывод результата"
End Sub
Контрольные вопросы
Структура логического оператора If … Then … Else
Структура логического оператора If … Then … Else … End If
Структура оператора выбора Select Case … End Select
If условие TheN оператор1 Else оператор2, где условие – любое допустимое логическое выражение;операторы – один или несколько операторов VBA, которые должны находиться в одной и той же строке.
If условие TheNоператор1 Else оператор2, где условие – любое допустимое логическое выражение; операторы – один или несколько операторов VBA, которые должны находиться в одной и той же строке, End If- обозначает конец логического оператора.
Select Case выражение
Case условие_1
Оператор_1
Case условие_2
Оператор_2
…..
Case условие_N
Оператор_N
[Case Else
Оператор_N+1
End Select,
где выражение – любое численное или строковое выражение;
условие_1, условие_2, условие_N– (каждый) представляет список логических выражений, отделенных запятыми;
оператор_1, оператор_2, оператор_N, оператор_N+1 – (каждый) представляет один, несколько или ни одного оператора; End Select- конец логического оператора.