Задание 1

Создать процедуру расчета факториала числа, введенного пользователем.

1. Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_5».

2. Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик,в открывшемся окне выберите свой файл «Лабораторная работа_5», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.

1. В открывшемся окне редактора набираем код:

Sub Main

s=InputBox(«Введите число»)

n=val(s)

f=1

for i=1 to n

f=f*i

next i

MsgBox(«Факториал введенного числа равен » & f)

End Sub

2. В этом коде до начала цикла со счетчиком в переменную f записывается 1. Далее в теле цикла со счетчиком в переменной f накапливается произведение чисел от 1 до введенного пользователем числа. Так на первом шаге цикла в f записывается 1*1, на втором шаге цикла 1*2, на третьем – берем то, что было в f на втором шаге 1*2 и * на значение счетчика 3, получается 1*2*3 и так далее.

3. Запускаем код на выполнение.

4. Проверяем работу программы, задав 5 (факториал 5 равен 120).

5. Сохраняем файл.

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

Измените предыдущую процедуру так, чтобы рассчитывалась сумма чисел от 1 до введенного пользователем числа.

Список литературы

1. Слепцова Л.Д. Программирование на VBA. Самоучитель. – М.: Издательский дом «Вильямс», 2004. – 384 с.

2. Михеев Р.Н. VBA и программирование в MS Office для пользователей. – СПб.: БХВ-Петербург, 2006. – 384 с.

3. Уолкенбах Дж. Excel 2003. Библия пользователя.: Пер. с англ. – М.: Издательский дом «Вильямс», 2005. – 768 с.

4. Джелен Б.. Применение VBA и макросов в Microsoft Excel.: Пер. с англ. – М.: Издательский дом «Вильямс», 2005. – 620 с.

5. Олбрайт К. Моделирование с помощью Microsoft Excel и VBA.: Пер. с англ. – М.: Издательский дом «Вильямс», 2005. – 672 с.

6. Кузьменко В.Г. VBA эффективное использование. – М.: Издательство «Бином», 2008. – 624 с.

7. Кузьменко В.Г. VBA 2003. Самоучитель. – М.: Издательство «Бином», 2008. – 384 с.

Приложение

Образец оформления титульного листа
отчета по лабораторной работе

Министерство образовании и науки Российской Федерации
Федеральное государственное автономное образовательное учреждение

Высшего профессионального образования

«Уральский федеральный университет имени первого Президента России Б. Н. Ельцина»
Кафедра «Интеллектуальные информационные технологии»
Дисциплина «Информатика»