Самостоятельная работа № 10

Практическая работа

Тема: Массивы в VBA

Цель: Освоить технологию обработки массивов в VBA

Задачи

1 Изучение теоретического материала

2 Привитие навыков самостоятельной работы с электронными материалами

Задания

1 Изучить предложенный материал

2 Разобрать и проверить примеры

3 Ответить в конспекте на контрольные вопросы

4 Выполнить индивидуальные задания

Контрольные вопросы

1 Что такое сортировка массива? Для чего она производится?

2 Каким образом производится удаление элементов массива?

3 Каким образом производится вставка элементов массива?

Массивы

Часто бывает необходимо работать с некоторым набором однотипных данных как с единым целым. В таких случаях используются массивы – структурированные боксы для хранения множеств элементов данных одинакового типа.

Массивы могут быть одномерными и многомерными.

Одномерные массивы

Одномерный массив – это набор однотпных значений, расположенных друг за другом в одной строке или столбце.

Пример

1 –34 8 2 6

или

-5

Каждый элемент массива обозначается при помощи имени массива и индекса, заключенного в круглые скобки. Индекс может быть:

· константой

Пример

P(1), C(5)

· переменной целого типа

Пример

A(i), B(j)

· арифметическим выражением (значение арифметического выражения должно быть целым)

Пример

A(i*2), Q(i^j)

Объявление массива

Как и обычные переменные, массивы должны быть объявлены. Описание массива выглядит следующим образом:

Dim Имя массива (Размерность массива) As Тип элементов.

Пример

Dim A (100) As Integer

Dim B (50) As Byte

Dim С (40) As Double

При таком описании массива его элементы индексируются (т.е. нумеруются), начиная с нуля.

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

Dim A (1 To 100) As Integer,

то элементы массива индексируются с единицы.

Заполнение массива может происходить:

− с клавиатуры

− по некоторому алгоритму

− случайными значениями при помощи генератора случайных чисел, который инициализируется инструкцией Randomize без аргумента, и активизируется функцией Rnd, возвращающей вещественное значение из диапазона [0;1).

Пример

Randomize

For i = 1 To 10

A(i) = Int(Rnd * 101) – 50 ‘ заполнение массива целыми числами [-50;50]

Next i

Сортировка элементов одномерного массива методом “пузырька”

Рассмотрим одномерный массив А:

– 4 6 – 2 10

Нужно расставить элементы этого массива по убыванию.

Метод “пузырька” заключается в том, что сравниваются два соседних элемента массива и, если первый из них меньше второго, то их переставляют местами (сортировка по убыванию).

I просмотр

– 4 6 – 2 10

6 – 4 – 2 10

6 – 2 – 4 10

6 – 2 10 – 4

II просмотр

6 – 2 10 – 4

6 10 – 2 – 4

III просмотр

6 10 – 2 – 4

10 6 – 2 – 4

Для получения данного результата необходимо отладить следующую программу.

Option Explicit

Sub PR19()

Dim A(30) As Integer

Dim N As Integer

Dim I As Integer

Dim K As Integer

Dim R As Integer

N = Val(InputBox("Введите N"))

For I = 1 To N

Cells(1,I) = Int(Rnd * 100 – 50) ‘ Заполнение ячеек рабочего листа

‘ случайными числами

A(I) = Cells(1,I) ‘ Заполнение массива

Next I

‘ Сортировка массива

For K = 1 To N–1

For I = 1 To N–K

If A(I) < A(I+1) Then

R = A(I) ‘ Перестановка элементов

A(I) = A(I+1)

A(I+1) = R

End If

Next I

Next K

‘ Распечатка полученного массива на рабочем листе Excel

Cells(3,3) = "Упорядоченный массив"

For I = 1 To N

Cells(5,I) = A(I)

Next I

End Sub

Самостоятельная работа № 10

В 1

1. Упорядочить элементы массива по возрастанию и вычислить сумму первого и последнего элементов.

2. Упорядочить элементы массива по убыванию и переставить местами первый и последний элементы.

В 2

1. Упорядочить элементы массива по возрастанию и найти максимальный из двух первых элементов.

2. Упорядочить элементы массива по убыванию и вычислить произведение первого и последнего элементов.

В 3

1. Упорядочить элементы массива по возрастанию и вычислить сумму первых трех элементов.

2. Упорядочить элементы массива по убыванию и переставить местами второй и предпоследний элементы.

В 4

1. Упорядочить элементы массива по возрастанию и вычислить минимальный из четных элементов.

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

В 5

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

2. Упорядочить элементы массива по убыванию и поменять местами первый и пятый элементы.

В 6

1. Упорядочить элементы массива по возрастанию и найти максимальный элемент в первой половине массива.

2. Упорядочить элементы массива по убыванию и найти произведение последних двух элементов.

В 7

1. Упорядочить элементы массива по возрастанию и поменять местами второй и последний элементы.

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

В 8

1. Упорядочить элементы массива по возрастанию и найти сумму положительных элементов.

2. Упорядочить элементы массива по убыванию и переставить местами второй и минимальный элемент.

В 9

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

2. Упорядочить первую половину массива по убыванию и переставить первый и последний элементы.

В 10

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

2. Упорядочить элементы массива по убыванию и поменять местами максимальный и минимальный элементы.

Не нашли, что искали? Воспользуйтесь поиском: