1. Откройте новый документ Calc и сохранить его под именем «Лабораторная работа_3».
2. Откройте новый модуль Бэйсика с помощью команды меню Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик,в открывшемся окне выбрать свой файл «Лабораторная работа_3», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.
3. В открывшемся окне редактора сотрите все, что есть и наберите следующий код:
Function QH(Q, P)
QH=Q*(100-P)/100
End Function
4. Закройте окно редактора.
5. Заполните следующую таблицу на листе Calc (рис. 16).

Рис. 16. Таблица данных
6. В ячейке «С2» наберите «=QH(A2,B2)»и нажмите «Enter» (в ячейке «А2» – значение параметра Q, в ячейке «В2» – значение параметра P)
7. Сохраните файл.