Сборник задач по VBA
.pdf
Министерство образования Республики Беларусь Учреждение образования
«МОГИЛЕВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПРОДОВОЛЬСТВИЯ»
Кафедра «Информатика и вычислительная техника»
Сборник задач по VBA
Методические указания для студентов всех специальностей и аспирантов
Могилев 2008
УДК 681.3
Рассмотрены и рекомендованы к изданию на заседании кафедры
«Информатика и вычислительная техника» Протокол № 9 от « 14 » апреля 2008 г.
Составитель
В.Л. Титов
Рецензенты:
кандидат технических наук, доцент, заведующий кафедрой «Автоматизированные системы управления» Белорусско-Российского университета
С.К. Крутолевич
кандидат физико-математических наук, доцент кафедры «Математического анализа, информатики и вычислительной техники» Могилевского государственного университета им. А.А. Кулешова С.Н. Батан
Методические указания представляет собой задачник по программированию на языке
Visual Basic for Applications (VBA).
Данные методические указания предназначены для аспирантов и студентов всех специальностей, изучающих дисциплины «Информатика», «Информатика и компьютерная графика», «Основы информационных технологий».
© УО «Могилевский государственный университет продовольствия», 2008
2
Введение
Основная цель данного методического указания – научить аспирантов и студентов программировать на языке Visual Basic for Applications (VBA).
Поскольку основные трудности при создании программ связаны с разработкой алгоритмов, т.е. методов их решения, то особое внимание в методическом указании уделяется рассмотрению структур данных и алгоритмов, призванных обрабатывать эти данные.
В методическом указании предложено большое количество задач (более 200), от простых до достаточно сложных.
Методическое указание состоит из 7 частей, содержащих как типовые задачи, т.е. ввода–вывода, использование циклов, работа с массивами, поиск и сортировка, так и задачи, которые, как правило, остаются за рамками традиционных курсов программирования, работа с пользовательскими формами.
3
Часть 1. СОЗДАНИЕ МАКРОСОВ
Начальные сведения по решению задач данной части содержатся в частях 1 и 2 учебно-методического пособия «Программирование на VBA».
Приступая к решению задач этого раздела, следует вспомнить, что:
üпри записи макроса макрорекордер записывает все действия пользователя, включая ошибки и неправильные запуски;
üзаписанные макрорекордером макросы не универсальны, поскольку они
могут только повторять однажды выполненные последовательности команд и только в том же самом порядке, в которых вы их записали;
üзаписанные макросы не гибки, поскольку они не учитывают изменения обстоятельств и условий;
üприменение макросов повышает скорость работы и, главное, точность и надежность.
1. Создайте макрос в Excel, который строит график функции y = x2 - x - 2 на отрезке [-3,3].
2.Создайте макрос в Excel, который заливает ячейку B1 ярко-зеленым цветом, вычисляет разность ячеек A1, A2 и выводит результат в ячейку B1 шрифтом Arial, подчеркнутым, 14 размером.
3.Создайте макрос в Excel, вычисляющий площадь поверхности и объем цилиндра (ячейки, содержащие r, h , должны быть подписаны).
S = 2 × p × r × (h + r)
V= p× r2 × h
4.Создайте макрос в Excel, который переводит вес из фунтов в килограммы (один фунт равен 409,5 г; ячейки, содержащие фунты и килограммы, должны быть подписаны).
5.Создайте макрос в Excel, который выводит на синем фоне красными буквами в текущую ячейку сообщение «Visual Basic for Applications (VBA)»
шрифтом Times New Roman, обычным, 12 размером.
6.Создайте макрос в Excel, который выделенный диапазон ячеек одной строки A1:H1 сортирует по убыванию.
7. Создайте макрос в Excel, вычисляющий площадь треугольника:
S = 12 × a × h, где a – длина основания треугольника, h – его высота (ячейки,
содержащие a, h, должны быть подписаны).
8. Создайте макрос в Excel, который выводит, начиная с текущей ячейки, четверостишие:
Унылая пора! Очей очарованье! Приятна мне твоя прощальная краса. Люблю я пышное природы увяданье, В багрец и золото одетые леса.
А.С. Пушкин
4
9.Создайте макрос в Excel, который вычисляет произведение чисел, расположенных в выделенном диапазоне 5-и ячеек.
10.Создайте макрос в Excel, который копирует ячейки A1:C2 и выводит их содержимое, начиная с ячейки F20.
11.Создайте макрос в Excel, который из последовательности чисел, расположенных в ячейках A1:A10, выводит последовательность с положительными числами в ячейки B1:B10.
12.Создайте макрос в Excel, вычисляющий объем и площадь поверхности шара (ячейка, содержащая r , должна быть подписана).
V = 34 × p× r3
S= 4 × p × r2
13.Создайте макрос в Excel, который переносит ячейки A1:A10 в ячейки
E16:E25.
14.Создайте макрос в Excel, который выводит в текущей ячейке фразу: «Каждый охотник желает знать, где сидят фазаны», позволяющую запомнить порядок следования цветов радуги (первая буква слова кодирует цвет: каждый – красный, охотник – оранжевый, желает – желтый, знать – зеленый, где – голубой, сидят – синий, фазаны – фиолетовый). Каждое слово фразы должно быть выведено соответствующим цветом.
15.Создайте макрос в Excel, который переводит расстояния из километров в версты (одна верста равна 1066,8 м.; ячейки, содержащие километры и версты, должны быть подписаны).
16.Создайте макрос в Excel, который выделенный диапазон ячеек одного столбца B1:B10 сортирует по возрастанию.
17.Создайте макрос в Excel, который выводит, начиная с ячейки B3, на синем фоне серыми буквами 16 размером четверостишие:
Буря мглою небо кроет, Вихри снежные крутя; То, как зверь, она завоет, То заплачет, как дитя.
А. С. Пушкин
18. Создайте макрос в Excel, вычисляющий объем конуса (ячейки, содержащие r, h , должны быть подписаны).
S= 13 × p× r2 × h
19.Создайте макрос в Excel, который для ячеекA2:B10 строит точечную диаграмму (значения X: A2:A10, значения Y: B2:B10).
20.Создайте макрос в Excel, который вычисляет сумму чисел, расположенных в ячейках A1:B10, и выводит результат в ячейку B11.
21.Создайте макрос в Excel на изменение ширины текущего столбца
5
(Ширина столбца 20).
22.Создайте макрос в Excel, который объединяет ячейки B7:H7 и выводит на желтом фоне синими буквами в объединенной ячейке сообщение «Создание макроса» шрифтом Times New Roman, обычным, 12 размером.
23.Создайте макрос в Excel, который для ячеек A2:C2 строит круговую диаграмму.
24.Создайте макрос в Excel на изменение высоты текущей строки (Высота строки 25).
25.Создайте макрос в Excel, вычисляющий площадь круга: S = p× r2 , где r – радиус круга (ячейка, содержащая r , должна быть подписана).
26.Создайте макрос в Excel, который строит график функции y = x2 -1 на
отрезке [-2,2].
27.Создайте макрос в Excel на изменение угла наклона текста в текущей ячейке (90 градусов).
28.Создайте макрос в Excel, вычисляющий объем полого цилиндра (ячейки,
содержащие r1, r2, h , должны быть подписаны; r1 − радиус цилиндра, r2 − радиус отверстия, h −высота цилиндра).
V= p × h ×(r12 - r22 )
29.Создайте макрос в Excel на добавление листа в книгу.
30.Создайте макрос в Excel, вычисляющий площадь трапеции: S = a +2 b × h ,
где a, b – длины оснований, h – высота трапеции (ячейки, содержащие a, b, h , должны быть подписаны).
Часть 2. СОЗДАНИЕ ПРОГРАММ С ЛИНЕЙНОЙ СТРУКТУРОЙ
Начальные сведения по решению задач данной части содержатся в части 3 учебно-методического пособия «Программирование на VBA».
Приступая к решению задач этого раздела, следует вспомнить, что:
üпрограммы с линейной структурой являются простейшими и используются, как правило, для реализации обычных вычислений по формулам;
üв программах с линейной структурой инструкции выполняются последовательно, одна за другой.
üалгоритм программы с линейной структурой может быть представлен следующим образом:
6
Начало
Ввод исход- |
С клавиатуры |
ных данных |
|
|
|
Обработка |
|
(вычисления) |
|
Ввод исход- |
На экран |
ных данных |
монитора |
|
|
Конец |
||
1. Составьте блок-схему и программу на языке VBA для вычисления |
||||
площади прямоугольника. |
|
|
|
|
Исходные данные: |
|
|
Результат: |
|
Длинна (см): 9 |
|
|
Площадь прямоугольника: 67,5 (кв. см) |
|
Ширина (см): 7,5 |
|
|
|
|
2. Составьте блок-схему и программу на языке VBA для вычисления |
||||
стоимости покупки, состоящей из нескольких тетрадей и карандашей. |
||||
Исходные данные: |
|
|
Результат: |
|
Цена тетради (руб.): 450 |
|
Стоимость покупки: 2 940 (руб.) |
||
Количество тетрадей (шт.): 5 |
|
|
||
Цена карандаша (руб.): 230 |
|
|
||
Количество карандашей (шт.): 3 |
|
|||
3. Составьте блок-схему |
и программу на языке VBA для вычисления |
|||
значения функции f (x, y) = |
x3 |
− y |
. |
|
1+ x2 + y4 |
||||
Исходные данные: |
Результат: |
|||
|
|
|||
x = 2, y = 1 |
|
|
f (x, y) = 1,1666666 |
|
4. Составьте блок-схему и программу на языке VBA для вычисления объема прямоугольного параллелепипеда.
Исходные данные: |
Результат: |
Длина (дм): 9 |
Объем параллелепипеда: 337,5 (куб. дм) |
Ширина (дм): 7,5 |
|
Высота (дм): 5 |
|
5. Составьте блок-схему и программу на языке VBA для вычисления |
|
расстояния между населенными пунктами, изображенными на карте. |
|
Исходные данные: |
Результат: |
Масштаб карты (количество |
Расстояние между населенными пунктами |
километров в одном см): 120 |
420 км. |
Расстояние между точками, |
|
изображающими населенные |
|
пункты (см): 3,5 |
|
|
7 |
6. Составьте блок-схему и программу на языке VBA для вычисления площади треугольника, если известна длина основания и высота.
Исходные данные: |
Результат: |
Основание (см): 8,5 |
Площадь треугольника 42,5 (кв. см) |
Высота (см): 10 |
|
7. Составьте блок-схему и программу на языке VBA для вычисления стоимости поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина.
Исходные данные: |
Результат: |
Расстояние до дачи (км): 34 |
Поездка на дачу и обратно обойдется в |
Расход бензина (литров на |
14 796,8 руб. |
100 км пробега): 8,5 |
|
Цена литра бензина (руб.): 2 560 |
|
8. Составьте блок-схему и программу на языке VBA для вычисления |
|
объема куба. |
|
Исходные данные: |
Результат: |
Длинна ребра (см): 9,5 |
Объем куба 857,375 (куб. см) |
9. Составьте блок-схему и программу на языке VBA для пересчета расстояния из верст в километры (1 верста равняется 1 066,8 м).
Исходные данные: |
Результат: |
|
Расстояние в верстах: 100 |
Расстояние в километрах: 106,68 |
|
10. Составьте блок-схему и программу на языке VBA для вычисления |
||
объема цилиндра. |
|
|
Исходные данные: |
Результат: |
|
Радиус основания (см): 5 |
Объем цилиндра: 785,398 (куб. см) |
|
Высота цилиндра (см): 10 |
|
|
11. Составьте блок-схему и программу на языке VBA для вычисления |
||
стоимости некоторого количества (по весу) яблок. |
||
Исходные данные: |
|
Результат: |
Цена одного килограмма яблок (руб.): 8,5 |
Стоимость покупки: 19,55 (руб.) |
|
Вес яблок (кг): 2,3 |
|
|
12. Составьте блок-схему и |
программу |
на языке VBA для вычисления |
площади поверхности прямоугольного параллелепипеда.
Исходные данные: |
Результат: |
Длина (см): 9 |
Площадь поверхности: 90,00 (кв. см) |
Ширина (см): 7,5 |
|
Высота (см): 5 |
|
13. Составьте блок-схему и программу на языке VBA для вычисления величины дохода по вкладу. Процентам ставка (в процентах годовых) и время хранения (в днях) задаются во время работы программы.
Исходные данные: |
Результат: |
Величина вклада (руб.): 2 500 000 |
Доход: 41 100 (руб.) |
Срок вклада (дней): 30 |
Сумма по окончании срока вклада: |
Процентная ставка (годовых): 20 |
2 541 100 (руб.) |
8
14. Составьте блок-схему и программу на языке VBA для вычисления объема цилиндра.
Исходные данные: |
Результат: |
||
Радиус основания (см): 5,5 |
Объем цилиндра: 665,23 (куб. см) |
||
Высота цилиндра (см): 7 |
|
||
15. Составьте блок-схему и программу на языке VBA для вычисления |
|||
значения функции f (x) = |
sin(x) |
. |
|
2x2 + ex |
|||
|
|
||
Исходные данные: |
Результат: |
||
x = 1 |
f (x) = 0,17834267 |
||
16. Составьте блок-схему и программу на языке VBA для вычисления площади трапеции, если известны средняя линия и высота трапеции.
Исходные данные: |
Результат: |
Средняя линия (см): 15,7 |
Площадь трапеции: 150,72 (кв. см) |
Высота (см): 9,6 |
|
17. Составьте блок-схему и |
программу на языке VBA для вычисления |
стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним.
Исходные данные: |
Результат: |
Цена тетради (руб.): 270 |
Стоимость покупки: 6 370 (руб.) |
Цена обложки (руб.): 220 |
|
Количество комплектов (шт.): 13 |
|
18. Составьте блок-схему и программу на языке VBA для вычисления |
|
произведения 3-х вещественных чисел. |
|
Исходные данные: |
Результат: |
Первое число: 17,5 |
Произведение чисел: 5 059,6875 |
Второе число: 12,5 |
|
Третье число: 23,13 |
|
19. Составьте блок-схему и программу на языке VBA для вычисления площади треугольника, если известны длины двух его сторон и величина угла между этими сторонами.
Исходные данные: |
Результат: |
Длина первой стороны (см): 25 |
Площадь треугольника: 106,25 (кв. см) |
Длина второй стороны (см): 17 |
|
Угол между сторонами треугольника (градусы): 30
20. Составьте блок-схему и программу на языке VBA для пересчета веса из фунтов в килограммы(1 фунт равняется 409,5 г.).
Исходные данные: |
Результат: |
Фунт(а/ов): 3,5 |
Килограмм(а/ов): 1,433 |
21. Составьте блок-схему и программу на языке VBA для вычисления длины диагонали прямоугольника.
Исходные данные: |
Результат: |
Длина (см): 5,4 |
Диагональ: 6,3285 (см) |
Ширина (см): 3,3 |
|
22. Составьте блок-схему и |
программу на языке VBA для пересчета |
9
величины временного интервала, заданного в минутах, в величину, выраженную в часах и минутах.
Исходные данные: |
Результат: |
Минуты: 150 |
Часы и минуты: 2 ч 30 мин |
23. Составьте блок-схему и программу на языке VBA для вычисления
значения функции y(x) = x + |
sin2 |
(x) |
. |
2 |
|
||
Исходные данные: |
|
Результат: |
|
|
|
||
x = 2,5 |
|
|
y(x) = 2,67908445 |
24. Составьте блок-схему и программу на языке VBA для вычисления площади поверхности цилиндра.
Исходные данные: |
Результат: |
Радиус основания (см): 5,5 |
Площадь поверхности цилиндра: 431,97 (кв. см) |
Высота цилиндра (см): 7 |
|
25. Составьте блок-схему и программу на языке VBA, которая преобразует введенное с клавиатуры целое неотрицательное число в денежный формат.
Исходные данные: |
Результат: |
Число: 124680 |
124 тысяч(а/и) 680 руб. |
26. Составьте блок-схему и программу на языке VBA для вычисления среднего арифметического 3-х чисел.
Исходные данные: |
Результат: |
Первое число: 7,5 |
Среднее арифметическое: 4,333333333333 |
Второе число: 2,5 |
|
Третье число: 3 |
|
27. Составьте блок-схему и программу на языке VBA для вычисления длинны вектора по его координатам.
Исходные данные: |
Результат: |
x1 = 2 |
Длина вектора: 5,09901951359 |
y1 = 2,4 x2 = 5,4 y2 = 6,2
28. Составьте блок-схему и программу на языке VBA для вычисления площади прямоугольного треугольника, если известны катет и гипотенуза.
Исходные данные: |
Результат: |
Катет (см): 12,3 |
Площадь треугольника: 79,978 (кв. см) |
Гипотенуза (см): 17,9 |
|
29. Составьте блок-схему и программу на языке VBA для вычисления значения функции z(x) = x + ex−1x2 + 3 .
Исходные данные: |
Результат: |
x = −2,6 |
z(x) = 0,58470836374 |
30. Составьте блок-схему и программу на языке VBA для вычисления площади полной поверхности куба, если известна его ребро.
Исходные данные: |
Результат: |
Ребро (дм): 1,7 |
Площадь полной поверхности: 17,34 (кв. дм) |
10