Одномерный массив состоит из ряда элементов

Математическая запись массива: Х= (х_i), i=1,2,...,n,

где Х - имя массива;

x_i - имя элемента массива в общем виде (индексная переменная);

i -индекс, указывающий на порядковый номер элемента в массиве.

В VBА имя элемента в общем виде запишется так - х(i).

Массивы с фиксированными размерами называют статическими, а с переменными размерами - динамическими. Характеристики массива заключены в его обязательном описании.

Синтаксис описания статического одномерного массива:

dim Имя (размерность массива) [ AS тип массива ]

Приведем описание массива с именем х.

Dim x(1 to 10) As single

где:

· Имя массива - х;

· Размерность - одномерный;

· Длина массива - 10 элементов;

· Тип массива - вещественный.

При этом будет выделено 10 пустых ячеек с именами х(1), х(2),... х(10)

Данный массив также может быть описан следующим образом:

Option base 1 ' Оператор записать в разделе General редактора кода

Dim x(10) as single

Общая блок - схема обработки элементов одномерного массива

Содержание блока подготовки и тела цикла при решении некоторых задач обработки одномерного массива:

Задача Блок подготовки Тело цикла

Сумма элементов s=0 s=s+x(i)

Произведение элем. р =1 р=р*x(i)

мин. элемент min=x(1) if min>x(i) then min=x(i)

мах. элемент max=x(1) if max<x(i) then max=x(i)

Примеры обработки одномерных массивов

Пример 16.1.

Задан одномерный массив Х=х_i i=1,2,...,10. Составить программу определения максимального элемента.(см. глава 10, рис. 10.10).

Private Sub CommandButton1_Click()

Dim x(1 To 10), max As Single, i As Integer

For i = 1 To 10

x(i) = Val(InputBox(" Введите " & i & " Элемент массива "))

Next i

max = x(1)

For i = 2 To 10

If max < x(i) Then max = x(i)

Next i

MsgBox "max=" & max