Программирование ветвлений с использованием операторов If и Select Case.

Цель работы: Приобрести навыки программирования разветвляющихся вычислительных процессов.

Теоретические разделы для выполнения лабораторной работы (см. VBA. Ветвления):

1. Условный оператор If.

2. Оператор выбора Select Case.

Задание к работе

Вычислить значение числового выражения (по вариантам, прил. 3) двумя способами.

1. Программирование разветвляющихся вычислительных процессов с использованием логического оператора If.
2. Программирование разветвляющихся вычислительных процессов с использованием оператора выбора Select Case.

Замечание

Исходные данные задать самостоятельно. При решении задачи предварительно построить интервальный ряд для анализа области существования решения.

Пример

Текст программы (Часть 1, оператор If)

Sub lr2_1()
Const p i=3.14
Dim y, a, b As Single
a=Val(InputBox(“Введите значение a”))
b=Val(InputBox(“Введите значение b”))
If a <0 then
y=cos(b+pi)-a
ElseIf a>exp(1) then
y=5*(b+pi)
Else
y=a-sqr(b+pi)-a
End If
MsgBox “Результат Y = ” & y, , “Вывод результатов”
End Sub

Текст программы (Часть 2, оператор Select Case)

Sub lr2_2()
Const pi=3.14
Dim y, a, b As Single
a=Val(InputBox(“Введите значение a”))
b=Val(InputBox(“Введите значение b”))
Select Case a
Case Is<0
y=cos(b+pi)-a
Case Is>exp(1)
y=5*(b+pi)
Case Else
y=a-sqr(b+pi)-a
End Select
MsgBox “Результат Y = ” & y, , “Вывод результатов”
End Sub

Контрольные вопросы

1. Структура логического оператора If … Then … Else
2. Структура логического оператора If … Then … Else … End If
3. Структура логического оператора If … Then … ElseIf … Else … End If
4. Структура оператора выбора Select Case … End Select

Приложение 3. Варианты заданий

CC-BY-CA Анатольев А.Г., 31.01.2012