Использование двумерных массивов в VBA на уроках информатики | Статья в журнале «Молодой ученый»

Автор:

Рубрика: Информатика

Опубликовано в Молодой учёный №6 (192) февраль 2018 г.

Дата публикации: 10.02.2018

Статья просмотрена: 425 раз

Библиографическое описание:

Алексеев Н. Л. Использование двумерных массивов в VBA на уроках информатики // Молодой ученый. — 2018. — №6. — С. 15-20. — URL https://moluch.ru/archive/192/48265/ (дата обращения: 23.02.2019).



VBA — универсальный язык программирования. С помощью его можно создавать полноценные приложения на Visual Basic, поскольку эти языки — близкие родственники. Создавать программы на нем можно очень быстро и легко, не нужно заботиться об установке и настройке среды программирования и наличии нужных библиотек на компьютере пользователя — MS Office есть практически на любом компьютере. Рассмотрим пример создания программы с использованием двумерных массивов.

Удобство среды VBA заключается в том, что она внедрена в пакет прикладных программ Microsoft Office и, соответственно, является доступной практически на любом ПК, не требует установки дополнительного программного обеспечения.

Немногие учителя используют в своей работе возможности так называемого офисного программирования. С помощью языка VBA можно создавать различные проекты, которые пригодны к использованию, в том числе на уроках информатики.

Массив — набор однотипных переменных, объединенных одним именем и доступных через это имя и порядковый номер переменной в наборе. Организуем в электронных таблицах Excel двумерный массив А, состоящий из 20 х 10 = 200 элементов. Для этого в Excel создадим поле, в котором определим элементы массива целыми случайными числами от 1 до 100.

Рис. 1. Поле двумерного массива в Excel

Перейдём во вкладку Разработчик → Visual Basic. Затем вкладка Insert → Module. Откроется окно для создания программного кода.

Рис. 2. Окно для создания программного кода

Sub Двумерный_Массив()

Dim A(20, 10) As Integer

For i = 1 To 20 'Число строк в массиве

For j = 1 To 10 'Число столбцов в массиве

A(i, j) = Int(Rnd * 100 + 1) 'Задание массива целыми числами от 1 до 100

Cells(i, j) = A(i, j)

Next j

Next i

При выполнении программы на активном листе Excel образуется следующее поле:

Рис. 3. Заполнение двумерного массива в Excel

Определим переменные для нахождения максимального, минимального, среднего значения в таблице, кроме того, вычислим сумму и размах таблицы. Все перечисленные переменные целые, кроме действительного среднего значения. Присвоим им соответствующие типы данных: Dim Max, Min, Сумма, Размах As Integer, Среднее As Single.

Используя принцип математической индукции, найдём наибольшее и наименьшее значения таблицы: If A(i, j) >Max Then Max = A(i, j)

If A(i, j) < Min Then Min = A(i, j)

Для вычисления суммы: Сумма = Сумма + A(i, j), среднего значения: Среднее = Сумма / 200, размаха таблицы: Размах = Max — Min. Результат программы будет следующий:

Sub Двумерный_Массив()

Dim A(20, 10) As Integer

Dim Max, Min, Сумма, Размах As Integer, Среднее As Single

Max = 0 'Начальное значение Максимального элемента в массиве

Min = 100 'Начальное значение Минимального элемента в массиве

Сумма = 0

For i = 1 To 20 'Число строк в массиве

For j = 1 To 10 'Число столбцов в массиве

A(i, j) = Int(Rnd * 100 + 1) 'Задание массива целыми числами от 1 до 100

Cells(i, j) = A(i, j)

If A(i, j) >= Max Then Max = A(i, j) 'Вычисление Максимального элемента в массиве

If A(i, j) <= Min Then Min = A(i, j) 'Вычисление Минимального элемента в массиве

Сумма = Сумма + A(i, j) 'Вычисление Суммы

Next j

Next i

Среднее = Сумма / 200 'Вычисление Среднего значения

Размах = Max — Min

Range(«A22").Value = «Max ="

Range(«A23").Value = «Min ="

Range(«A24").Value = «Сумма ="

Range(«A25").Value = «Среднее ="

Range(«A26").Value = «Размах ="

Range(«B22").Value = Max

Range(«B23").Value = Min

Range(«B24").Value = Сумма

Range(«B25").Value = Среднее

Range(«B26").Value = Размах

End Sub

Для создания копии таблицы, сдвинем её на 11 позиций вправо.

'Создание копии таблицы

For i = 1 To 20

For j = 1 To 10

Cells(i, j + 11) = A(i, j)

Next j

Next i

Наглядно видно, что перед нами копия таблицы.

Рис. 4. Копия таблицы

С этой таблицей мы может выполнять какие-либо действия, например: Заменим все числа кратные 2 на 2, кратные 3 на 3, кратные 5 на 5, остальные на «*». Произведём подсчёт таких чисел. Для этого добавим строки:

'Обработка таблицы

Dim Кратные2, Кратные3, Кратные5, Звезд As Integer

Кратные2 = 0

Кратные3 = 0

Кратные5 = 0

Звезд = 0

For i = 1 To 20

For j = 1 To 10

If A(i, j) \ 2 = A(i, j) / 2 Then Cells(i, j + 22) = 2

If A(i, j) \ 3 = A(i, j) / 3 Then Cells(i, j + 22) = 3

If A(i, j) \ 5 = A(i, j) / 5 Then Cells(i, j + 22) = 5

If A(i, j) \ 2 <> A(i, j) / 2 And A(i, j) \ 3 <> A(i, j) / 3 And A(i, j) \ 5 <> A(i, j) / 25 Then Cells(i, j + 22) = "*"

If A(i, j) \ 2 = A(i, j) / 2 Then Кратные2 = Кратные2 + 1 'Подсчёт количества чисел кратных 2

If A(i, j) \ 3 = A(i, j) / 3 Then Кратные3 = Кратные3 + 1 'Подсчёт количества чисел кратных 3

If A(i, j) \ 5 = A(i, j) / 5 Then Кратные5 = Кратные5 + 1 'Подсчёт количества чисел кратных 5

If Cells(i, j + 22) = "*" Then Звезд = Звезд + 1 'Подсчёт количества "*"

Next j

Next i

Range(«D22").Value = «Таблица»

Range(«O22").Value = «Копия Таблицы»

Range(«Z22").Value = «Обработанная таблица»

Range(«W22").Value = «Кратные 2" 'Вывод результатов

Range(«W23").Value = «Кратные 3"

Range(«W24").Value = «Кратные 5"

Range(«W25").Value = «Кол-во *"

Range(«X22").Value = Кратные2

Range(«X23").Value = Кратные3

Range(«X24").Value = Кратные5

Range(«X25").Value = Звезд

Рис. 5. Обработанная таблица

Используя офисное программирование можно сформировать у студентов комплекс знаний, умений и навыков, необходимых для решения профессиональных задач в области автоматизации работы с офисным пакетом Microsoft Office.

Литература:

  1. И. Г. Фризен. Офисное программирование: Учебное пособие / М. Издательско-торговая корпорация «Дашков и К», 2013 г.
  2. Языки управления приложениями: Учебно-методическое пособие. — М.: Издательский отдел факультета ВМиК МГУ имени М. В. Ломоносова № 05899; 2015 г.
  3. https://studfiles.net/preview/2897110/
  4. https://www.intuit.ru/studies/courses/23/23/info
Основные термины (генерируются автоматически): VBA, массив, Число столбцов, размах таблицы, программный код, Начальное значение, Максимальный элемент, Задание массива, двумерный массив, Число строк.


Похожие статьи

Алгоритм интервального оценивания параметров нелинейных...

m — число параметров функции-модели; n — число точек регрессии; step0, step — начальный и рабочий шаг исходного многогранника (симплекса)

F(1 to m + 4) — массив значений ЦФ или ШФ в вершинах ДМ

Методика проведения лабораторной работы по дисциплине...

поиска максимального элемента в одномерном массиве; 7) пример программы вычисления суммы элементов одномерного массива и количества отрицательных элементов в массиве; 8) особенности работы с двумерными массивами; 9)...

Анализ эффективности алгоритмов сортировки и вcтроенных...

Рис. 1. Исходный код сортировки выбором. В таблице 1 приведен расчет времени, необходимый для успешного выполнения сортировки

Учитывая это, сложность алгоритма сортировки вставками определена как O(n^2), где n — количество элементов массива.

Использование алгоритмов нечеткого поиска при решении задачи...

Пусть, например, в качестве аргументов заданы две строки «Привет» и «Превед» и некоторая максимальная длина подстрок, скажем, 4, тогда получаем значения коэффициента, равные 0,75, при n=1; 0,4 при n=2

Сравнительный анализ алгоритмов сортировки данных в массивах.

Размножение объектов массивом в системе моделирования...

По умолчанию максимальное число элементов массива, построенного одной командой, равно 100000.

Если задать большое количество строк и столбцов, построение массива может занять некоторое время.

Сравнительный анализ алгоритмов сортировки данных в массивах

При сортировке подсчетом используется диапазон чисел сортируемого массива для подсчёта совпадающих элементов [2, с. 24]..

Использование алгоритмов нечеткого поиска при решении задачи устранения дубликатов в массивах данных.

Методика формирования информационных файлов для...

- составление графа -«дерево» учебных элементов по теме. - определение понятийных и эмпирических индикаторов.

Размеpы двумеpного массива могут меняться в зависимости от объема pаздела (количество стpок в одной задаче и общее количество задач или вопpосов)...

Алгоритмические аспекты доминирования в графах

В дальнейшем эти числа используются для вычисления числа доминирования графа.

Данные структуры инициализируются для работы с заданным деревом в программном виде.

1) структура графа в виде массива окрестностей каждой вершины.

Обсуждение

Социальные комментарии Cackle

Похожие статьи

Алгоритм интервального оценивания параметров нелинейных...

m — число параметров функции-модели; n — число точек регрессии; step0, step — начальный и рабочий шаг исходного многогранника (симплекса)

F(1 to m + 4) — массив значений ЦФ или ШФ в вершинах ДМ

Методика проведения лабораторной работы по дисциплине...

поиска максимального элемента в одномерном массиве; 7) пример программы вычисления суммы элементов одномерного массива и количества отрицательных элементов в массиве; 8) особенности работы с двумерными массивами; 9)...

Анализ эффективности алгоритмов сортировки и вcтроенных...

Рис. 1. Исходный код сортировки выбором. В таблице 1 приведен расчет времени, необходимый для успешного выполнения сортировки

Учитывая это, сложность алгоритма сортировки вставками определена как O(n^2), где n — количество элементов массива.

Использование алгоритмов нечеткого поиска при решении задачи...

Пусть, например, в качестве аргументов заданы две строки «Привет» и «Превед» и некоторая максимальная длина подстрок, скажем, 4, тогда получаем значения коэффициента, равные 0,75, при n=1; 0,4 при n=2

Сравнительный анализ алгоритмов сортировки данных в массивах.

Размножение объектов массивом в системе моделирования...

По умолчанию максимальное число элементов массива, построенного одной командой, равно 100000.

Если задать большое количество строк и столбцов, построение массива может занять некоторое время.

Сравнительный анализ алгоритмов сортировки данных в массивах

При сортировке подсчетом используется диапазон чисел сортируемого массива для подсчёта совпадающих элементов [2, с. 24]..

Использование алгоритмов нечеткого поиска при решении задачи устранения дубликатов в массивах данных.

Методика формирования информационных файлов для...

- составление графа -«дерево» учебных элементов по теме. - определение понятийных и эмпирических индикаторов.

Размеpы двумеpного массива могут меняться в зависимости от объема pаздела (количество стpок в одной задаче и общее количество задач или вопpосов)...

Алгоритмические аспекты доминирования в графах

В дальнейшем эти числа используются для вычисления числа доминирования графа.

Данные структуры инициализируются для работы с заданным деревом в программном виде.

1) структура графа в виде массива окрестностей каждой вершины.

Задать вопрос