Массивы

a) Описание массивов

Dim <имя массива>(<начальное значение индекса> To <конечное значение индекса>) As <тип элементов массива>

Пр: Dim A(1 To 10) As Integer - массив состоит из 10 элементов, тип каждого элемента - Integer.

б) Обращение к элементу массива

Обращение к элементу массива осуществляется следующим образом: указывается имя массива, а затем в круглых скобках указывается номер элемента в массиве.

Пр: A(1)=5 - первому элементу массива А присваивается значение 5

А(17)=А(1) - 17-ому элементу массива А присваивается значение первого элемента массива А.

в) Ввод массивов

Массивы можно вводить как с листа Excel, так и используя встроенную функцию InputBox.

Пр: вводятся массивы А,В,С из 15 элементов:

For i=1 To 15

' Ввод массива A с листа Excel, используя свойство Range (элементы вводятся из столбца А, строки изменяютя с 1 по 15.

A(i)=Worksheets(1).Range("A" & i).Value

' Ввод массива B с листа Excel, используя свойство Cells (строки изменяются с 1 по 15, столбец 2 (столбец B)

B(i)=Worksheets(1).Cells(i,2)

' Ввод массива C через функциюInputBox

C(i)=InputBox("Введите " & i & "ый элемент массива")

Next i

г) Решение задачи из примера через массивы

1. Заполнить диапазон ячеек А1:А5 значениями элементов массива.

2. Текст программы:

Sub mm ()

Dim A(1 to 5) As Integer

N=5

Y=0

For i=1 to n

A(i)=Worksheets(1).Cells(i,1)

Next i

For i=1 To n

Y=Y+log(A(i))/2^i

Next i

Worksheets(1).Range (“A6”).Value = ”результат”

Worksheets(1).Range (“A7”).Value = Y

End Sub

ЗАДАНИЯ ДЛЯ ВЫПОЛНЕНИЯ. ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ

В программе для решения требуемой задачи:

1. Создать одномерный массив из 10 элементов, которые являются произвольными положительными и отрицательными числами. Формирование массива обеспечить, используя InputBox или считывая данные предварительно записав их на лист Excel.

2. Предусмотреть вывод сформированного массива на лист Excel.

3. Выполнить задание по согласованию с преподавателем, предусмотреть в программе вывод результатов на лист Excel или используя MsgBox.