Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабы по Excel / Лабораторная работа 4

.docx
Скачиваний:
0
Добавлен:
13.07.2024
Размер:
815.72 Кб
Скачать

7.5 Лабораторная работа №4

Тема работы: двумерные массивы.

Цель работы: получение навыков работы с операторами цикла и двумерными массивами.

Задание: разработать программу сортировки двумерного массива по возрастанию и по убыванию значений элементов. Для каждого вида сортировки добавить свою управляющую кнопку. Сохранить первоначальный вариант массива на листе MS Excel. Подготовить отчет по лабораторной работе.

В качестве данных использовать двумерный массив следующего вида:

Примерный внешний вид выполненной лабораторной работы №4 изображен на рисунке 4.

Рисунок 4 – Примерный внешний вид лабораторной работы №4

Дополнительная информация

Рассмотрим примеры, которые могут быть полезны при выполнении лабораторной работы №4.

К ячейкам листа MS Excel можно обращаться как к диапазону Range. Такой способ обращения к ячейкам позволяет работать не с одной ячейкой, а с набором ячеек, представленных двумерным массивом.

Для понимания особенностей использования Range разработаем программу, которая будет переставлять местами заданные строки внутри двумерного массива.

Рассматриваемую программу реализует следующий программный код:

Массив имеет размерность 8 строк и 4 столбца. В программу массив передается через указание параметра диапазона. Диапазон ячеек массива указан в ячейке I4. В ячейках G7 и I7 указываются строки, которые необходимо поменять местами. В начале программы объявляются переменные, в том числе переменная R типа Range для работы с массивом. Команда Set R = Range(Range("I4")) присваивает переменной R диапазон значений, прописанный в ячейке I4.

Обратится к ячейке массива R можно с помощью команды R.Cells(1,1), таким образом будет получено значение из первой строки первого столбца.

Перебор элементов в строках реализован с помощью цикла For. При необходимости можно скопировать значения массива в диапазон B12:E19 с помощью команды: