Самостоятельная работа. Public Function ВЫБОР(x, z As Double) As Double

End Function

End Select

Case 4

Case 1 to 2

Case 1

Case 0

Select Case x

Public Function ВЫБОР(x, z As Double) As Double

Использование оператора Select Case в функции пользователя

End Function

End If

Else

Public Function FFF(x, z As Double) As Double

If x < 0 Then

FFF = x + ((z + 5) / x)

ElseIf x > 0 Then

FFF = (x + 2) ^ 2 - (z / (z - x))

FFF = 0

5. Вычислите значения y в таблице, используя функцию FFF, которая может быть вызвана с помощью Мастера функций.

Задание 2

Создайте функцию пользователя для расчета по формуле:

Начальные данные имеют вид:

x	z
-5,2	1,4
	2,0
	6,5
1,5	5,8
	3,3
6,7	8,1

Выполнение:

1. Создайте на рабочем листе таблицу с начальными данными и предусмотрите столбец для вывода результата.

2. Создайте функцию пользователя как в упражнении 7.1.

3. В открывшемся окне кода введите следующий программный код:

Case Is < 0

ВЫБОР = x + z

ВЫБОР = 0

ВЫБОР = (x + z)^2

ВЫБОР = (x + z)^3

ВЫБОР = x^2 - z^2

Case Is >5

ВЫБОР = x - z

4. Вычислите значения y в таблице, используя функцию ВЫБОР, которая может быть вызвана с помощью Мастера функций.

Решите следующие задачи:

Задача 1. Менеджеру отдела оптовой продажи книг необходимо рассчитать стоимость партии книг по прогрессивной шкале цен:

если продается от 100 до 200 экземпляров книги, то скидка от ее отпускной цены составляет 7 %;

если продается от 200 до 300 экземпляров, то скидка составляет 10 %;

если свыше 300 экземпляров, то – 15 %.

Кроме того, для постоянных клиентов предусмотрена дополнительная скидка в размере 5 %.

Информация о проданных книгах хранится в таблице следующего вида:

Книга	Цена одной книги	Количество	Скидка	Стоимость
1.
2.
3.
4.

Комментарий к выполнению:

1. На рабочем листе MS Excel создайте исходную таблицу.

2. Для расчета стоимости партии книг создайте функцию пользователя Стоимость (ЦенаОднойКниги, Количество, Скидка).

3. Используя функцию Стоимость, заполните таблицу.

Задача 2. Определить, принадлежит ли вводимое число заданному интервалу ([0, 10]). Число ввести с помощью функции InputBox. Результат вывести в окне функции сообщения MsgBox.

Интерфейс пользователя состоит из кнопки панели инструментов Формы на рабочем листе MS Excel.

Самостоятельная работа

I. Использование оператора If … Then … Else при создании кнопочного сценария

1. Создайте форму пользователя (UserForm) для расчета суммы и разности двух чисел, содержащую: 2 поля (TextBox) для ввода данных; поле (TextBox) для вывода результата; рамку (Frame) с переключателями (OptionButton) для выбора выполняемой операции (сумма или разность) и 2 кнопки (CommandButton) OK и Закрыть.

2. Напишите процедуру обработки события Click кнопки ОК по следующему алгоритму:

- введите 2 переменные для начальных данных и переменную для хранения результата;

- передайте начальные данные из соответствующих текстовых полей в переменные;

- проверьте, какой установлен переключатель (сумма или разность) и на основе этого произведите расчет результата операции по соответствующей формуле;

- результат выведите в текстовое поле.

Дата добавления: 2017-01-14