Лекции.Орг


Поиск:




Категории:

Астрономия
Биология
География
Другие языки
Интернет
Информатика
История
Культура
Литература
Логика
Математика
Медицина
Механика
Охрана труда
Педагогика
Политика
Право
Психология
Религия
Риторика
Социология
Спорт
Строительство
Технология
Транспорт
Физика
Философия
Финансы
Химия
Экология
Экономика
Электроника

 

 

 

 


Создание функции пользователя




Лабораторная работа 16

Тема: Работа с текстовыми файлами и разработка функций пользователя с помощью VBA.

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

Создание функции пользователя

Задание 1. Протабулировать функцию F на отрезке [5, 20] с шагом 1,5;

при a = 12, b = 0,5, с помощью разработанной функции пользователя.

Функция F имеет вид:

Указания:

1. Создать новую книгу Лаб. 2 VBA- Функции пользователя в личной папке, подпапке с именем VBA.

2. Лист 1 переименовать в "F".

3. В редакторе Visual Basic создать функцию пользователя с именем F от трех переменных - F(x, a, b).

Создать модуль командой Insert – Module

Задать функцию.

 

После этого нужно сохранить книгу с поддержкой макросов, нажав на кенопуку сохранить в окне MS Visual Basic

Теперь используем функцию F(x,a,b) так же как обычную встроенную функцию, например ОКРУГЛ(A1)

 

Пример кода простейшей функции Test(і), которая будет прибавлять к і 5.

 

 

Function Test(i As Integer) As Integer

Test = i + 5

End Function

Результат ее вызова:

 

 

4. На рабочем листе F протабулировать функцию (создать таблицу значений функции F для каждого х в диапазоне [5;20]):

 

Проверка правильности:

При х = 5.0, F = 7,50;

x = 20, F = 0,43.

5 В тетрадь записать:

- построенную таблицу значений x и F (предварительно задав 1 и 2 десятичных знака);

- код функции F на VBA;

- формулу с вложенной разработанной функцией (например, формулу расчета значения F для x=5.0).

 

Задание 2. Рассчитать таблицу изменения значений рентабельности и цены в зависимости от изменения себестоимости:

 

 

Указания:

1. Расчетные формулы:

где: R – рентабельность,

С –цена,

S – себестоимость,

P – прибыль.

Исходные данные:

P = 85, S изменяется от 800 до 1000 с шагом 25.

 

2. Для расчета рентабельности создать функцию РЕНТАБ (P, S), для определения цены – ЦЕНА (S, P), данные разместить на Листе 2, который назвать " РЕНТАБ, ЦЕНА", третий лист удалить.

 

Для создания новой функции необходимо выполнить команду Insert – Procedure на панели инструментов.

 

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

 

 

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

 

3. Отформатировать таблицу по образцу задания (обратите внимание: убрать линии сетки (меню Сервис или заливка ячеек рабочего листа белым цветом), задать тень таблицы - заливка соответствующих ячеек серым цветом).

 

4. Записать в тетрадь также:

- коды функций РЕНТАБ, ЦЕН на VBA;

- вызовы функций - формулы расчета первого значения рентабельности и цены.

 

 

Организация диалога (окна сообщений и ввода)

Задание 3. Ввод и вывод числовых значений (команды InputBox и MsgBox).

Указания:

1. Создать процедуру с именем CalcRC (Расчет R и С), которая осуществляет:

1) ввод с клавиатуры значения прибыли P (P = 85, значение по умолчанию = 10) с помощью функции InputBox:

2) ввод с клавиатуры значения себестоимости S (S = 1000, значение по умолчанию = 20) с помощью функции InputBox:

Синтаксис функции InputBox:

InputBox(Текст сообщения, Заголовок, Значение по умолчанию)





Поделиться с друзьями:


Дата добавления: 2016-12-06; Мы поможем в написании ваших работ!; просмотров: 278 | Нарушение авторских прав


Поиск на сайте:

Лучшие изречения:

Неосмысленная жизнь не стоит того, чтобы жить. © Сократ
==> читать все изречения...

2332 - | 2042 -


© 2015-2025 lektsii.org - Контакты - Последнее добавление

Ген: 0.008 с.