5.8. Задание по теме «Обработка одномерных массивов в vba»

Написать в VBA код для решения задачи:

Задача: В магазине функционирует 4 отдела. Определить отделы, выручка которых за отчетный период выше средней выручки по магазину.

Ввод исходных данных в массив производить из ячеек листа Excel. Результаты вывести в окно Immediate в виде таблицы (см. Таблица 19)

Таблица 19

Образец таблицы

Отдел	Выручка, тыс. руб.
Отдел 1	300
Отдел 2	250
Отдел 3	400
Отдел 4	320

Алгоритм реализации:

1. Введем обозначения для величин и определим их тип данных (см. Таблицу 20 )

Таблица 20

Величины и их характеристики

Величина	Обозначение	Вид переменной	Тип данных
Наименование отдела	Otdel	Одномерный массив	строковый
Выручка	Viruch	Одномерный массив	вещественный
Сумма выручки по всем отделам	Sum	Простая переменная	вещественный
Средняя выручка	Sr_V	Простая переменная	Вещественный
Параметр цикла	i	Простая переменная	Целочисленный
Номера строк таблицы с данными	k	Простая переменная	Целочисленный

Решение задачи можно разбить на три этапа:

1 этап – нахождение общей выручки по магазину (Sum). Процесс заключается в вычислении суммы элементов массива Viruch, т. е. в добавлении к Sum значения соответствующего элемента массива Viruch при каждом выполнении тела цикла;

2 этап – нахождение средней выручки по магазину (Sr_V) по формуле Sr_V=.

3 этап – определение отделов, выручка которых выше средней по магазину. Процесс заключается в последовательной проверке условия Viruch(i)>Sr_V для всех элементов массива Viruch. Если это условие выполняется, то текущий элемент массива Viruch выводится на печать.

Блок-схема алгоритма приведена на рис. 24

Рис. 24. Блок-схема алгоритма для задания по теме №8

2. Открыть MS Excel.

3. Создать на листе 1 таблицу (см. Рис. 25).

Рис. 25. Таблица Excel с исходными данными

4. Открыть окно редактора VBA (Alt+F11 или вкладка Разрабочик⇨Visual Basic).

5. В коде листа 1 набрать код, представленный на рисунке 26. В коде процедуры использована функция Round для округления результата вычисления.

6. Запустить процедуру на выполнение (F5). В окне Immediate будет выдан результат (см. Рис. 27).

Рис. 26. Код процедуры для задания

Рис. 27. Результат работы процедуры

6. Вопросы для подготовки к зачету/экзамену

1. Объект, предмет, методы и задачи дисциплины «Экономическая информатика».

2. Что такое экономическая информатика?

3. Объекты экономической информатики.

4. Информационные системы и их классификация.

5. Основные компоненты информационных систем, используемых в экономике.

6. Что такое данные?

7. Что такое информация?

8. Что такое знание?

9. Экономическая информация.

10. Электронно-вычислительные машины (ЭВМ) и их классификация.

11. Архитектура ЭВМ фон Неймана.

12. Персональный компьютер (ПК) и его основные составляющие.

13. Базовая аппаратная конфигурация ПК.

14. Системный блок, размещение органов управления.

15. Порты (каналы ввода - вывода) ПК.

16. Назначение и характеристики процессоров.

17. Оперативная память ее назначение и характеристики

18. Внешняя память ее назначение и характеристики.

19. Контроллеры и их назначение.

20. Устройства ввода.

21. Мониторы их назначение и характеристики.

22. Принтеры их разновидности и характеристики.

23. Представление информации в компьютере.

24. Единицы измерения информации.

25. Структура программного обеспечения (ПО) компьютера.

26. Системное ПО.

27. Драйверы и утилиты (вспомогательные или служебные программы).

28. Прикладное ПО.

29. Инструментальное ПО.

30. Файловые системы FAT32 и NTFS.

31. Имена и атрибуты файлов.

32. Операционные системы и их назначение.

33. Операционные системы клиентских компьютеров.

34. Операционные системы серверов.

35. Операционные системы семейства Windows.

36. Графический интерфейс пользователя (GDI)

37. Основные элементы графического интерфейса Windows.

38. Окно приложения и диалоговые окна. Работа с окнами Windows.

39. Работа с главным и контекстным меню Windows.

40. Рабочий стол, и панель задач их назначение и использование.

41. Назначение и функции программы Проводник.

42. Папка "Мой компьютер".

43. Создание и сохранение файлов в Windows.

44. Создание папок и каталогов.

45. Поиск файлов и папок в Windows.

46. Ярлыки, их назначение и создание.

47. Настройка рабочего стола Windows.

48. Сервисные программные средства Windows.

49. Служебные программы Windows.

50. Служебная программа: Дефрагментация диска.

51. Служебная программа: Проверка диска.

52. Служебная программа: Назначение задач.

53. Служебные программы архивации данных.

54. Архивация данных.

55. Компьютерные вирусы и их методы классификации.

56. Признака заражения компьютера вирусом.

57. Способы защиты от компьютерных вирусов.

58. Антивирусные программы.

59. Понятие алгоритма и его свойства.

60. Средства для описания (представления) алгоритма.

61. Типы алгоритмических процессов.

62. Алгоритмы линейной структуры.

63. Алгоритмы разветвляющейся структуры.

64. Циклические вычислительные процессы.

65. Классификация языков программирования.

66. Основные составляющие пакета Microsoft Office.