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

1. Для выполнения задания потребуется 4 графических файла: лето.jpg, осень.jpg, весна.jpg, зима.jpg. Для удобства размещаем эти файлы в папке C:\Картинки (см. Рис. 12)

Рис 12. Содержимое папки Картинки.

2. Открыть Excel и запустить редактор VBA (Alt+F11).

3. Добавить в проект новую пустую форму, выбрав в меню Insert (Вставка) команду UserForm (Форма).

4. В окне Properties (Свойства) ввести значения свойств формы в соответствии с таблицей 16:

Таблица 16

Значения свойств для формы

Свойство	Значение
Name	Seasons
Caption	Времена года

5. Перетащить с панели инструментов на форму элемент Image (изображение). Оставить его выделенным.

6. В окне Properties (Свойства) найти свойство PictureSizeMode и установить для него значение:

1-fmPictureSizeModeStretch.

7. В окне Properties (Свойства) найти строку со свойством Picture (Рисунок). Чтобы перейти к поиску нужного файла с картинкой, щелкнуть кнопку с многоточием справа в этой строке . В диалоговом окне Load Picture (Загрузка рисунка) выберите файл C:\ Картинки\весна.jpg.

8. Перетащить на макет формы элемент управления TextBox (поле ввода). Установите для свойства MultiLine значение True

9. Перетащить с панели инструментов на форму элемент ComboBox (поле со списком). В окне Properties (Свойства) ввести значения свойств в соответствии с таблицей 17.

Таблица 17

Значения свойств для Поля со списком

Свойство	Значение	Значение свойства
Name	CmbSeason	Имя поля со списком, на которое можно ссылаться в форме
MatchRequired	True	True (в поле ввода раскрывающегося списка нельзя ввести значения, отличные от перечисленных в списке, т.е. в поле со списком отключается функция поля ввода)

10. Перетащить на макет формы элемент CommandButton (командная кнопка). В окне Properties (Свойства) ввести значения свойств в соответствии с таблицей 18.

Таблица 18

Таблица свойств для кнопки.

Свойство	Значение
Name	cmdClickMe
Caption	Перекрасить
ControlTipText	Командная кнопка
Font	Nimes New Roman, жирный, 10 пунктов

11. После выполнения пунктов 3-10 форма будет выглядеть как на рис. 13.

Рис 13. Вид формы в режиме конструктора

Для выполнения задания потребуется три массива: Text – для хранения описаний времён года; Pictures – для хранения названий картинок; Season – для хранения наименований времен года.. Все массивы строкового типа. И их значения будут передаваться между процедурами проекта. Поэтому массивы надо описать как глобальные переменные. Описание глобальных переменных размещают в стандартном модуле.

12. Вставить в проект новый модуль с помощью команды меню Insert ⇨ Module. В этот модуль ввести строки для объявления глобальных переменных как на рис. 14.

Рис. 14. Модуль с описанием глобальных переменных

Массивы и поле со списком будут заполняться значениями при инициализации формы. Для организации заполнения значениями, выполнить следующие действия (см. п.п. 13-16)

13. Прейти в окно кода формы (двойной щелчок по свободному месту на форме) и выбрать вверху в левом раскрывающемся списке строку UserForm (см. Рис. 15)

Рис. 15. Список объектов проекта.

14. В правом раскрывающемся списке выбрать строку Initialize (см. Рис. 16).

Рис. 16. Список событий выбранного объекта

15. В окне кода формы появится пустая процедура (см. Рис. 17)

Рис. 17. Пустая процедура

16. Набрать текст процедуры (см. Рис. 18).

Рис/ 18. Код процедуры обработки события инициализации формы

17. Перейти в проекте к макету формы.

18. Дважды щелкнуть по элементу ListBox (Поле со списком) и перейти в окно кода. Набрать процедуру (см. Рис. 19)

Рис/ 19. Код процедуры обработки события

19. Выбрать в окне кода формы в списке объектов объект CommandButton1, в строке справа отобразиться событие Click, а в окне кода появиться пустая процедура (см. Рис. 20)

Рис. 20. Пустая процедура обработки события Click

20. Набрать текст процедуры (см. Рис. 21).

Рис. 21. Код процедуры обработки события Click.

21. Запустить форму командой Run⇨Run Sub/UserForm. На экране появится форма. Проверить работу формы, выбрав в списке любое значение, а потом нажав кнопку Перекрасить (см. Рис. 22, Рис. 23).

Рис 22. Вид готовой формы.

Рис. 23. Вид формы после щелчка по кнопке Перекрасить

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

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

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

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

Таблица 19

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

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

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

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.

7. СПИСОК РЕКОМЕНДУЕМОЙ ЛИТЕРАТУРЫ

1. Бройдо В.Л. Вычислительные системы, сети и телекоммуникации [Текст]: учеб. для вузов./ В.Л. Бройдо,О.П. Ильина. 4-е изд. - СПб.: Питер, 2011 - 555 с.

2. Головин А.Ю. Информационные сети [Текст]: учеб. для вузов./ Ю.А. Головин, А.А. Суконщиков, С.А. Яковлев. – М. академия, 2011. – 377 с.

3. Ефимов Е.Н. Информационные системы и технологии в экономике [Текст]: учеб пособие/ Е.Н. Ефимов, Е.В. Ефимова, Г.М. Лапицкая. –Ростов-н/Д: ИЦ «Март»; Феникс, 2010. -288 с.

4. Лебедева, Т.Ф. Алгоритмизация и программирование: учеб. пособие / Т.Ф. Лебедева, А.Н. Солопова, В.С. Черкасов; КемИ (ф-л) ГОУ ВПО «РГТЭУ».- Кемерово, 2008.- 80 с.

5. Мельников П.П. Компьютерные технологии в экономике [Текст]: учебное пособие. – М: Кнорус, 2009.

6. Синицын, С.В. Операционные системы [Текст]: учеб. для вузов./ С.В. Синицын, А.С. Михайлов, О.И. Хлытчиев. - М. Академия, 2010. – 394 с..

7. Экономическая информатика [Текст]: учеб. пособие для бакалавров/ под ред. Д.В. Чистова. – М.: КноРус, 2010. – 512 с.