Основы и принципы работы в VBA. Часть 1: Методические указания к выполнению лабораторных работ, страница 8

3)  Для каждой введенной арабской цифры от 1 до 9 вывести соответствующую запись римскими цифрами.

4)  По введенному номеру дня недели выдать в качестве результата расписание занятий на этот день.

5)  По введенному номеру времени года (1 – зима, 2 – весна, 3 – лето,       4 – осень) выдать его название и перечень соответствующих этому времени года месяцев.

6)  По введенному номеру курса N (от 1-го до 5-го) выдать соответствующее сообщение «Привет, N-курсник!», например: «Привет, первокурсник!» при N = 1.

7)  По введенному номеру месяца выдать количество дней в этом месяце (месяцы с одинаковым количеством дней объединить в группы).

8)  По введенному коду единицы измерения (1 – тонна, 2 – центнер,          3 – килограмм, 4 – грамм, 5 – миллиграмм) и массе М выдать соответствующее значение массы в килограммах.

9)  По введенному номеру единицы измерения (1 – километр, 2 – метр,     3 – дециметр, 4 – сантиметр, 5 – миллиметр) и длине отрезка L выдать соответствующее значение длины отрезка в метрах.

10)По введенному номеру месяца (от 1 до 12) выдать перечень приходящихся на этот месяц праздничных дней (например, если введено число 1, то  1 января – Новый год, 7 января – Рождество).

11)Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по введенному номеру элемента запрашивает его соответствующее значение и вычисляет площадь круга.

12)По введенному шифру учебного потока определить название факультета ОмГУПСа, например, поток 46 – электромеханический факультет (формулу для выделения первой цифры шифра составить самостоятельно).

13)В восточных календарях принят 12-летний цикл. Годы внутри цикла носят названия животных: 1-й – петуха, 2-й – собаки, 3-й – кабана (свиньи), 4-й – крысы, 5-й – вола (быка), 6-й – тигра, 7-й – кролика (кота), 8-й – дракона, 9-й – змеи, 10-й – лошади, 11-й – овцы (козы), 12-й – обезьяны. По введенному четырехзначному году выведите его название в календаре, например:           2007 – год Свиньи.  Порядковый номер года в 12-летнем цикле можно определить по формуле:   N = остаток (Год / 12).

14)Составить программу начисления премиальных в зависимости от объема продаж. Формула расчета премии имеет вид:

Премия = Объем продаж * Комиссионные проценты.

Данные для выполнения задания представлены в табл. 4.3.

Таблица 4.3

Данные для начисления премиальных

Объем продаж,  р.	Комиссионные, %	Объем продаж,  р.	Комиссионные, %
От 3000 до 9999	6	От 50000 до 100000	12
От 10000 до 49999	9	Более  100000	14

15)Для целого числа а, которое принимает значение  от единицы до 99, напечатать фразу «Мне а лет», учитывая при этом, что при некоторых значениях числа а слово «лет» необходимо заменить на слово «год» или «года», например: 11 лет, 22 года, 51 год.

4.3.  Дополнительное задание

Даны действительные числа a, b, c. Выяснить, имеет ли уравнение  действительные корни. Если действительные корни имеются, то найти их, в противном случае выдать сообщение, что действительных
корней нет.

Библиографический список

1. Соболь Б. В. Информатика / Б. В. Соболь / Ростов-на-Дону: Феникс, 2005. 448 с.

2. Информатика. Базовый курс / С. В. Симонович, Г. А. Евсеев и др. СПб: Питер, 2005. 640 с.

3. Васильев А. А. VBA в Office 2000 / А. А. Васильев, А. Б. Андреев. СПб: Питер, 2001. 432 с.

4. Кузьменко В. Г. VBA 2003 / В. Г. Кузьменко. М.: Бином-Пресс, 2004. 408 с.

5. Назаров С. В.  Программирование на MS Visual Basic / С. В. Назаров, П. П. Мельников. М.: Финансы и статистика, 2003. 320 с.

ПРИЛОЖЕНИЕ

Типы данных VBA

Тип данных	Содержимое переменной	Диапазон допустимых значений
Boolean	Логический тип данных	Истина (–1) или ложь (0)
Byte	Достаточно малое целое число	От 0 до 255
Integer	Не слишком большое целое число	От –32 768 до 32 767
Long	Большое целое число	От –2 147 483 648 до 2 147 483 647
Single	Значение одинарной точности с плавающей запятой	От –3,402823Е38 до –1,401298Е-45 для отрицательных значений и от 1,401298Е-45 до 3,402823Е38 для положительных
Double	Значение двойной точ- ности с плавающей запятой	От  –1,79769313486231Е308  до  1,79769313486232Е308
Object	Объект VBA	Ссылка на любой объект VBA сохраняет адрес объекта в памяти
String (переменной длины)	Последовательность переменной длины, состоящая из длины строки + 10 байт	Используется для хранения текста и может содержать от нуля до 2 000 000 000 символов
String (фиксированной длины)	Последовательность заданной длины, состоящая из длины строки	Используется для хранения текста от нуля до 65 400 символов
Variant	Любое из допустимых значений	Зависит от типа данных, содержащихся в переменной, соответствует описаниям, приведенным в программе.
Пользова-тельский тип	Группа переменных, используемых вместе как единое целое	–

Учебное  издание

Иванова Валентина Васильевна, КРЫГИН Анатолий Николаевич,

САЛЯ Илья Леонидович, УСОЛЬЦЕВА Лариса Александровна

Основы  и  принципы  работы  в  vba

Часть 1

_________________

Редактор Т. С. Паршикова

 *** 

Подписано в печать      06.2008. Формат 60 × 84 ¹/₁₆.

Плоская печать. Бумага офсетная. Усл. печ. л. 2,5. Уч.-изд. л. 2,7.

 Тираж 850 экз. Заказ        .

**

Редакционно-издательский отдел ОмГУПСа

Типография ОмГУПСа 

*

644046, г. Омск,  пр. Маркса, 35