- •Содержание
- •Введение
- •1 Основные понятия языка программирования vba
- •1.1 Элементы языка
- •1.2 Константы
- •1.3 Идентификаторы
- •StrMyName, I, intNumOne, Номер, Max_Len и т.П.
- •1.4 Переменные
- •1.5 Выражения и операции
- •1.6 Массивы
- •1.7 Строки
- •2 Структура программы на vba
- •2.1 Оператор комментария
- •2.2 Оператор присваивания
- •2.3 Оператор вывода и диалоговые окна ввода/вывода информации
- •2.4 Оператор безусловного перехода
- •2.5 Оператор условного перехода
- •2.6 Оператор множественного выбора
- •2.7 Операторы цикла
- •If условие Then Exit For
- •If условие Then Exit Do
- •2.8 Обработка информационных массивов
- •2.9 Процедуры и функции
- •2.10 Обработка строковой информации
- •3 Элементы среды разработки vba
- •3.1 Панель инструментов Стандартная
- •3.2 Элементы управления
- •Лабораторная работа №1 Тема: Инструментальная среда языка программирования vba
- •1) Активизируйте редактор vba.
- •2) Ознакомьтесь с интерфейсом редактора vba.
- •3) Добавьте в окно проекта Стандартный модуль командой меню Вставка/Модуль (Insert/Module).
- •4) Добавьте Форму в окно проекта командой меню Вставка/ UserForm (Insert/ UserForm).
- •Лабораторная работа №2 Тема: Разработка программ линейной структуры в среде vba
- •1) Способ представления алгоритма в виде блок-схемы.
- •2) Линейная структура программы в vba.
- •5) Выполните ввод числовых значений:
- •6) Программа выведет на экран монитора диалоговое окно с результатом вычислений:
- •Индивидуальные задания для самостоятельной работы
- •Задание 1. По предложенной блок-схеме разработать программу. Используя функцию Round, округлить результаты вычислений.
- •Варианты задания 3
- •Лабораторная работа №3 Тема: Разработка программ разветвленной структуры в среде vba
- •1) Понятие разветвленной вычислительной структуры.
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 4 Тема: Разработка программ циклической структуры в среде vba
- •1) Понятие циклического вычислительного процесса.
- •2) Реализовать данную программу в среде vba Microsoft Excel:
- •3) Внести изменения в программу Пример4 так, чтобы было возможно вычисление суммы любого количества чисел «2».
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •7) Реализовать данную программу (рис. 22) в среде vba Microsoft Excel. Выполнить вывод заголовков и результатов в окно Immediate:
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 5 Тема: Разработка программ обработки информационных массивов в среде vba
- •1) Порядок обработки информационного массива.
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •Лабораторная работа №6 Тема: Разработка программ смешанной структуры в среде vba
- •2) Реализовать данную программу в среде vba Microsoft Excel:
- •Индивидуальные задания для самостоятельной работы
- •Блок-схема алгоритма:
- •Литература
- •Правила изображения блок-схем
- •Указатель
Индивидуальные задания для самостоятельной работы
Задание 1. По предложенной блок-схеме разработать программу
Задача 1. Определить супермаркет с максимальной выручкой. Данные ввести в виде таблицы:
Название супермаркета |
Выручка, тыс. руб. |
Кора |
200 |
Акватория |
155 |
… |
… |
SM(n) |
Z(n) |
Б лок-схема алгоритма:
Задача 2. Подсчитать количество пятерок. Данные ввести в виде таблицы:
Ф.И.О. |
Оценка |
Иванов |
5 |
Сидоров |
3 |
… |
… |
F$(n) |
O(n) |
Блок-схема алгоритма:
Задача 3. По итогам экзаменов подсчитать средний балл (S(I)) каждого абитуриента и вывести порядковый номер абитуриентов со средним баллом >= 4 за экзамены. Данные ввести в виде таблицы:
Математика |
Диктант |
Иностранный язык |
3 |
4 |
5 |
… |
… |
… |
M(n) |
D(n) |
Z(n) |
Блок-схема алгоритма:
Задача 4. Найти количество товаров, стоимость которых больше 20 руб.
Данные ввести в виде таблицы:
Название товара |
Стоимость, руб |
Тетрадь |
15 |
Альбом |
25,5 |
… |
… |
T(10) |
S(10) |
Блок-схема алгоритма:
Задача 5. Вывести список тех товаров, стоимость 1 кг которых стоит больше 10 руб. Данные ввести в виде таблицы:
Товар |
Стоимость 1 кг |
Сахар |
13 |
Мука |
5 |
… |
… |
T$(n) |
S(n) |
Блок-схема алгоритма:
Задача 6. Составить списки номеров предприятий, выполнивших план и не выполнивших план. Данные ввести в виде таблицы:
Название предприятия |
План, Тыс. руб. |
Фактически выполнено, Тыс. руб. |
Флора |
15,2 |
18,3 |
Мега |
14 |
13,6 |
... |
14,8 |
16,2 |
… |
… |
… |
PR(n) |
Р(n) |
F(n) |
Блок-схема алгоритма:
Задача 7. Сеть магазинов «Акватория» включает в себя N магазинов. Вывести список магазинов сети, у которых ежедневная выручка составляет более 110 тыс. рублей. Данные ввести в виде таблицы:
Название магазина |
Сумма выручки, (тыс. руб.) |
Акватория1 |
150 |
Акватория2 |
120 |
Акватория3 |
100 |
… |
… |
AK(n) |
SV(n) |
Блок-схема алгоритма:
Задача 8. На предприятии производится N различных видов продукции, Вывести в виде таблицы список продукции, стоимость которой находится в пределах от 1500 до 3000 рублей. Данные ввести в виде таблицы:
Вид продукции |
Стоимость |
Фильтр для воды |
1000 |
Носос ESPа |
2000 |
Радиаторы |
3200 |
… |
… |
VP(n) |
ST(n) |
Блок-схема алгоритма:
Задача 9. Фирма располагает следующей информацией о своих сотрудниках: Ф.И.О. сотрудника, число дней отпуска, сумма отпускных. Вывести в виде таблицы список сотрудников фирмы, отпуск которых более 28 дней.
N – число сотрудников фирмы;
FIO$(I) – фамилия, имя отчество сотрудников;
DN – число дней отпуска
S – сумма отпускных
Данные ввести в виде таблицы:
ФИО сотрудника |
Число дней отпуска |
Сумма отпускных |
Кошкин И.П. |
56 |
10000 |
Конев Д.И. |
25 |
8000 |
Орлов В.А. |
42 |
9300 |
… |
… |
… |
FIO(n) |
DN(n) |
S(n) |
Блок-схема алгоритма:
Задача 10 Ввести данные по пяти районам г. Кемерово в виде таблицы:
Название района |
Площадь (в км2) |
Численность населения. |
… |
… |
… |
NR$(5) |
PL(5) |
CMSL(5) |
Вычислить плотность населения тех районов города, площадь которых больше заданного значения ZN и вывести полученную информацию в виде таблицы:
Название района |
Плотность населения |
Центральный |
0,7 |
Ленинский |
0,4 |
Заводский |
0,6 |
… |
… |
NR$(5) |
PLT(5) |
Блок-схема алгоритма:
Задание 2. Разработать алгоритм в виде блок-схемы. Составить и отладить программу на языке VBA и выполнить по ней расчеты на ПЭВМ. Массив элементов задать датчиком случайных чисел.
Вариант задания |
Массив |
Действия |
Условия и ограничения |
1 |
Х(40) |
Вычислить сумму и количество элементов массива X |
0 хi 1 |
2 |
А(30) |
Вычислить среднее арифметическое значение элементов массива А |
аi > 0 |
3 |
Х(20) |
Переписать элементы массива X в массив Y и подсчитать их количество |
-1 xi 1 |
4 |
В(35) |
Определить максимальный элемент массива В и его порядковый номер |
xi > 0 |
5 |
С (45) |
Вычислить минимальный элемент массива С и его порядковый номер |
xi < 0 |
6 |
Y(25) |
Вычислить среднее геометрическое элемента массива Y |
yi > 0 |
7 |
N(30) |
Определить сумму элементов массива N, кратных трем |
Ni/3*3 = Ni |
8 |
X(40) |
Переписать в массив Y положительные элементы массива X |
xi > 0 |
9 |
X(40) |
Переписать в массив Y положительные и в массив Z отрицательные элементы массива X |
xi < 0 |
10 |
D(20) |
Найти максимальный и минимальный элементы массива D и поменять их местами |
- |