Задание 2

1. В этом же документе откройте редактор OOo Basic, используя команду меню Сервис->Макросы -> Управление макросами ->OpenOffice.org Бэйсик и выберите только что созданный макрос. Нажмите кнопку «Редактировать».

2. В среде редактирования поправьте имеющейся модуль, введя следующий текст:

Dim a as Integer

Dim s As String

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

a = val(s)

MsgBox a

8. В первых строках объявляются переменные a и s. Первая имеет тип Integer (целое число), вторая – строка, в нее можно сохранять буквы или слова.

9. Далее используем функцию InputBox, которая считывает то, что ввел пользователь. Но все, что вводит пользователь, считается строкой. Если вводит число, то оно представляется как «2», а все, что в «» считается числом. Поэтому результат ввода сохраняется в переменной s. Чтобы убрать «» с числа применяется функция val, она переводит строку в число. И теперь результат можно сохранить в переменную а.

10. Кликните на кнопке с зеленым треугольником («Выполнить Basic») в верхней панели для выполнения макроса.

11. Программа запустится и откроется окно, которое создается функцией InputBox (рис. 14). Обратите внимание, что текст, введенный в скобках функции, выводится как надпись в окне функции. В окне функции InputBox в поле для ввода введите число и нажмите кнопку «ОК».

Рис. 14. Окно функции InputBox

12. Откроется окно функции MsgBox с введенным ранее числом (рис. 15).

Рис. 15 Окно функции с результатом работы программы

13. Сохраните документ.