Лабораторная работа №3(VBA)


Лабораторная работа № 3
VBA. Циклические алгоритмы. Работа с массивами
Цель работы
Научиться использовать язык программирования Visual Basic for Applications (VBA) для разработки модулей в Excel на основе циклических алгоритмов.
Задачи лабораторной работы
После выполнения данной работы студент должен знать и уметь:
знать все операторы, используемые в программах;
уметь применять любые из изученных операторов для написания своих модулей;
уметь объяснить написанную программу.
Общие теоретические сведения
VBA – это язык объектно-ориентированного программирования.
Основными парадигмами являются объект, свойство, метод, событие, класс и семейство объектов.
Объект – это инкапсуляция данных вместе с кодом, предназначенным для их обработки.
Семейство – объект, содержащий несколько других объектов того же типа.
Классы – это проект, на основе которого будет создан объект, т.е. класс определяет имя объекта, его свойства и действия, над ним выполняемые. А каждый объект, свою очередь, является экземпляром класса. 
Методы – это действия, выполняемые над объектом.
Свойства – это атрибут объекта, определяющий его характеристики: размер, цвет, положение на экране или состояние (доступность, видимость).
События – это действия, распознаваемые объектом.
Состав задания
Пример 1. 
В массиве чисел М(10) очистить клетки с нулевыми значениями.
Запись программы в виде блок-схемы (рис. 1) и визуальное представление ввода данных и вывода результата (рис. 2).
Запустите Microsoft Excel.
Введите значения массива

Рисунок 1. Электронная таблица с исходными данными
На листе MS Excel внедрите командную кнопку «Обнуление клеток с нулевыми значениями» :
 Запустите редактор VBA.


Рисунок 2. Результат работы программы
Пример 2.
Выявить, есть ли в массиве число 10? Если есть, на каком месте оно стоит (известно, что число может встретиться несколько раз).
Программный код

Пример 3.
Вычислить произведение ряда: 
 
Программный код

Визуальное представление ввода данных и вывода результата (рис. 3): 

Рисунок 3. Результат работы программы
Пример 4.
Найти максимальное значение из значений элементов последовательности x1, x2, …, x20 (одномерного массива), используя оператор do while…loopПрограммный код

Визуальное представление ввода данных и вывода результата (рис. 4): 

Рисунок 4. Результат работы программы
Пример 5.
Задан двумерный массив F(4 to 8, 2 to 6). Найти сумму элементов этого массива.
Программный код

Пример 6.
Найти в процедуре сумму в каждом столбце.
Программный код

Пример 7.
В процедуре найти сумму элементов 1 и 3 строки и записать их на место элементов 1 строки.
Программный код

Варианты заданийЗадание 1. Разработать алгоритм решения задачи и составить программу согласно варианта.
Определить порядковые номера нулей в массиве.
Все отрицательные элементы массива заменить нулями. Выдать сообщение о количестве таких замен.
Найти порядковый номер минимального числа в массиве.
Найти значение первого по порядку положительного элемента в массиве.
Найти количество единиц в массиве.
Каких чисел в массиве больше: положительных или отрицательных? (массив может содержать нулевые значения).
Исходные данные: В таблице 10 строк. Первый столбец – фамилия работника, второй – стаж работника.
По стажу работника определить, к какой группе он относится, если 1 группа – стаж до 3-х лет, 2 группа – до 5 лет, 3 группа – до 10 лет, 4 группа – свыше 10 лет.
Найти сумму диагональных элементов блока ячеек, состоящего из 5 строк и 5 столбцов.
Двадцати переменным массива присвоить одно и то же значение, равное наибольшему из них.
Дан массив чисел. В клетке С1 записано некоторое число. Определить порядковый номер этого числа в массиве. Если в массиве такого числа нет, выдать об этом сообщение.
Просуммировать положительные и отрицательные числа в массиве. Записать полученные суммы в ячейки В1 и В2. (в массиве могут быть нулевые значения).
В клетку А1 записать число, если количество положительных элементов массива больше количества отрицательных. В противном случае записать в клетку А1 любой текст.
Найти сумму положительных элементов массива, имеющих индекс 3, 5, 7 и т.д.
В блоке ячеек записана матрица чисел. Ячейки с отрицательными значениями закрасить синим цветом, с положительными – красным, с нулями – желтым. Задание 2. По заданным значениям a, x и n найти сумму ряда.

Задание 3. Решить задачу для своего варианта на одномерный массив двумя способами: с данными на рабочем листе и вводимыми по тексту программы.
Вычислить сумму элементов, стоящих на чётных местах в последовательности х (20), используя оператор цикла do_loop untilВывести на печать номера элементов, попавших в диапазон (а, b) для последовательности а(30), используя оператор цикла for_next.
Вывести на печать количество элементов массива А1, А2, … А20, попавших в интервал [2, 5] и их сумму, используя оператор цикла do_loop while.
Вывести на печать номера элементов последовательности Х(20), значения которых равны заданному числу С, используя оператор цикла for_next.
Вычислить произведение элементов, стоящих на четных местах в последовательности Х(20), используя оператор цикла do while_loop.
Найти количество элементов последовательности А(20), значения которых равны нулю, используя оператор цикла do_loop until.
Вывести на печать номера и значения положительных элементов последовательности Х(20), используя оператор цикла do until_loop.
Вывести на печать номера с отрицательными значениями элементов для последовательности Х(20), используя оператор цикла for_next.
Найти минимальное значение из значений элементов последовательности А1, А2,…, А20, используя оператор цикла do_ loop while.
Найти минимальное значение из значений элементов последовательности Х1, Х2, … Х20, используя оператор цикла do_loop until.
В последовательности Х(20) вывести на печать номера элементов, значения которых равны t, используя оператор цикла do until_loop.
Найти количество отрицательных элементов в массиве С1, С2,…, С20, используя оператор цикла do until_loop.
Дана последовательность Х(10). Найти сумму отрицательных элементов и вывести на печать номера этих элементов, используя оператор цикла do_loop while.
Вычислить произведение элементов, стоящих на нечетных местах в последовательности Х(20), используя оператор цикла do while_loop.
Дана последовательность Х1, Х2, …, Х20. Заменить в ней отрицательные значения элементов на их квадраты. Вывести на печать полученную последовательность, используя оператор цикла do while_loop.
Задание 4. Решить задачу для своего варианта на двумерный массив двумя способами: с данными на рабочем листе и вводимыми по тексту программы.
Задан массив А(6,5). Найти номер строки и номер столбца с минимальным значением.
Задан массив А(4,5). Найти минимальное значение.
Задан массив х(5,5). Найти сумму отрицательных значений в каждой строке.
Задан массив х(5,5). Найти сумму положительных значений в каждом столбце.
Задан массив с(5,5) и число а. Найти количество элементов, равных по значению а.
Задан массив с(5,5) и число а. Найти сумму элементов, равных по значению а.
Задан массив х(5,5) и число а. Найти номера строк и столбцов элементов, равных по значению а.
Задан массив х(5,5) и интервал (а,b). Найти номера строк и столбцов элементов, попавших по значению в этот интервал.
Задан массив х(5,5) и интервал х[а,b]. Найти количество элементов, попавших по значению в этот интервал.
Задан массив х(5,5) и интервал х[а,b]. Найти сумму элементов, попавших по значению в этот интервал.
Задан массив А(6,4). Найти номер строки и номер столбца с максимальным значением.
Задан массив А(4,5). Найти максимальное значение.
Задан массив А(6,3). Найти номер строки и номер столбца с максимальным значением в каждом столбце.
Задан массив А(5,5). Найти номер строки и номер столбца с максимальным значением в каждой строке.
Задан массив А(4,5). Найти максимальное значение в каждой строке.
Технология выполнения работы
Разработать алгоритм для написания программы в виде блок-схемы.
Написать программу.
Протестировать ее с разными исходными данными.
Содержание отчета
Цель работы, условие задачи
Алгоритм в виде блок-схемы.
Исходный текст программы.
Вводимые данные и результаты.
Результат работы программы должен иметь наглядный вид.
Вопросы для защиты работы
Как описываются массивы переменных?
Сколько операций цикла DO Вы знаете?
Как выглядит оператор цикла FOR?
Указать вид оператора DO, который выполняется, пока условие дает истину.
Указать вид оператора DO, который выполняется, пока условие дает ложь.
Можно ли прервать выполнение оператора FOR принудительно?

Приложенные файлы

  • docx 522118
    Размер файла: 725 kB Загрузок: 0

Добавить комментарий