Пример 3
Вычислить
где х – значение ячейки С2 листа Excel. При этом переменная х может принимать только целые значения. Процедура примет вид
Sub Пример2( )
X = Range(“С2”).Value
Select Case X
Case Is < -10
Y = X ^ 2
Case –10 To –5
Y = 3 + X
Case –4 To –2
Y = sin(X)
Case –1 To 0
Y = exp(X)
Case Else
Y = 8 * X
End Select
End Sub
Порядок выполнения работы
Задания
Задание 1. Создать и отладить процедуры с использованием условного оператора.
Задание 2. Создать и отладить процедуру с использованием оператора выбора.
Задание 3. Самостоятельно написать и отладить программу с разветвлением вычислений.
3.1. Выполнение задания 1
Написать процедуру для вывода сообщения в том случае, если при делении одного числа на другое знаменатель равен нулю.
Для этого:
1. Создать таблицу Excel табл.1.
Таблица 1
А
В
С
1
Числитель
Знаменатель
Частное
2
3
Числитель будем
помещать в ячейку А2, знаменатель – в
В2, результат в С2.
2. Для создания программы перейти в Visual Basic for Applications:
Сервис – Макрос – Редактор Visual Basic.
Откроется
окно редак-тора Visual
Basic.
В левой части окна редактора Visual
Basic
вы видите окно проектов (рис.1). Если
этого окна нет, нажмите комбинацию
клавиш Ctrl
+R.
. Для создания
Рис. 1
3. Для создания своего модуля программы в главном меню редактора Visual Basic (строчка вверху окна) выбрать команды Вставка – Модуль (если версия не русифицирована, команды Insert – Module).
В ваше приложение будет добавлен модуль1 (рис.2).
4. Для создания программы–процедуры выполните команды:
Рис. 2
Вставка
- Процедура (Insert
– Procedure).
Откроется
диалоговое окно Добавить
процедуру (рис.3).
В некоторых версиях Excel
это окно называется
Вставка процедуры.
5.
Введите имя
(Name)
процедуры: Деление.
Рис. 3
В секции Type (Тип) установите переключатель Sub (Подпрограмма-процедура). Щелкните по кнопке Ок - в модуль добавляется новая процедура (рис.4).
6. В пустой строке (после заголовка Public Sub Подпрограмма1) введите текст программы.
Public Sub Деление()
Dim Частное As Variant
If Range(“B2”).Value = 0 Then
MsgBox(“Знаменатель равен нулю”)
Else
Частное = Range(“А2”).Value / Range(“B2”).Value
Range(“С2”).Value = Частное
End if
End Sub
Рис.4
7. Для проверки работы программы ввести в В2 значение 0, в А2 значение 5.
8. Запустить программу на выполнение (Run – Run Procedure или нажать клавишу F5). Должно быть выведено сообщение о делении на ноль.
Изменить значение в В2 на 2.
Запустить программу на выполнение (F5).
Перейти на лист Excel (щелкнув по Ms Excel на Панели задач) и посмотреть результат.
3.1.3. Составить программу вычисления корней квадратного уравнения.
Для этого:
Создать ЭТ табл.3.
2. Создать процедуру:
Таблица 3
|
А |
В |
С |
1 |
КОРНИ КВАДРАТНОГО УРАВНЕНИЯ |
||
2 |
Коэффициенты |
||
3 |
А |
В |
С |
4 |
1 |
2 |
-1 |
5 |
Значение дискриминанта |
|
|
6 |
Корни уравнения |
|
|
7 |
Х1= |
|
|
8 |
Х2= |
|
|
Public Sub КорниУравнения ()
Dim D, X1, X2, A, B, C As Single
A = Range(“A4”).Value
B = Range(“B4”).Value
C = Range(“C4”).Value
D = B ^ 2 – 4 * A * C
If D < 0 Then
MsgBox (“Корней нет”)
ElseIf D = 0 Then
MsgBox (“Корни одинаковые”)
X1 = -B / 2 / A
X2 = X1
Else
MsgBox (“Корни разные”)
X1 = (-B + Sqr (D)) / (2 * A)
X2 = (-B - Sqr (D)) / (2 * A)
End If
Range(“B7”).Value = X1
Range(“B8”).Value = X2
End Sub
3. Запустить программу на выполнение.
4. Ввести значения коэффициентов: А = 1, В = 2, С = 1, проверить результат.
5. Ввести значения коэффициентов: А = 4, В = 3, С = 5, проверить результат.
3.1.4.
Вычислить
у=
Значение х разместить в ячейке А1 электронной таблицы, значение у разместить в ячейке В1.
Для этого:
1. Создать процедуру:
Public Sub Задание_4 ( )
Dim x, y As Single
х = Range(“A1”).Value
If x < 0 Then
y = x ^ 3
ElseIf x <= 3 Then
y = 2 * x
Else
y = x – 8
End If
Range(“B1”).Value = y
End Sub
2. Изменяя значения х, проверить все ветви программы.
3.1.5. Составить программу перевода суммы баллов, полученной студентами при тестировании и помещенной в ячейку А3 листа Excel, в пятибалльную шкалу.
Для этого:
1. Создать процедуру:
Public Sub Оценка ( )
If Range(“A3”).Value >= 90 Then
MsgBox(“Вы получили оценку 5!”)
ElseIf Range(“A3”).Value >= 80 Then
MsgBox(“Вы получили оценку 4!”)
ElseIf Range(“A3”).Value >= 70 Then
MsgBox(“Вы получили оценку 3!”)
ElseIf Range(“A3”).Value >= 60 Then
MsgBox(“Вы получили оценку 2!”)
Else
MsgBox(“Вы не прошли тестирование!”)
End If
End Sub
2. Проверить программу для разных баллов, вводя их значение в ячейку А3.