Действия над элементами массивами

После объявления массивов в разделе описания можно обработать каждый элемент массива в исполняемой части программы, указав имя массива и индекс элемента в круглых скобках. Например, второй элемент одномерного массива с именем A записывается как A(2).

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

Обработка элементов массива, как правило, производят в цикле For таким образом, чтобы параметр (индекс) цикла использовался для индексирования массива. По мере изменения индекса от нижней границы до верхней, обрабатываются один за другим все элементы массива.

Типовые алгоритмы обработки массивов

Рассмотрим основные действия над массивами и их элементами на примере следующих массивов.

Dim A(10) As Single, D(10) As Single

Dim I As Integer, J As Integer, K As Integer, VS As Single

Обнуление массива

For I=0 To 10

A(I)=0

Next I

Ввод-вывод массива

Ввод массива

For I=0 To 10”

A(I)=InputBox (“I=“+STR(I),” Ввод значений массива A”)

Next I

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

S=””

For I=1 To 10

S=S & A(I) & ” ”

Next I

MsgBox S,,”Массив A из 10 элементов”

Копирование массива

For I=0 To 10

D(I)=A(I)

Next I

Поиск в массиве по условию

Поиск всегда осуществляется с использованием дополнительной переменной. Пусть требуется определить К - количество нулевых и N – количество отрицательных элементов массива A. Фрагмент программы будет иметь следующий вид.

K=0

N=0

For I=0 To 10

IF A(I)=0 Then

K=K+1

ElseIf A(I)<0 THEN

N=N+1

End If

Next I