Массивы. Инструкция Dim может использоваться для объявления массивов

Инструкция Dim может использоваться для объявления массивов. Примеры объявления массивов:

Dim B(3, 3) As Single

Dim A(12) As Integer

Первая строка объявляет двумерный массив 3x3 (матрицу), состоящий из действительных чисел. Вторая строка объявляет одномерный массив (вектор) из 12 целых чисел, причем по умолчанию первый элемент массива будет А(0), а последний А(11). В этом случае говорят, что 0 — базовый индеке. Можно изменить базовый индекс, написав в начале листа модуля инструкцию Option Base1. После этого индексы массивов А и В будут начинаться с единицы. Другим способом изменения начального (базового) индекса является его явное указание при объявлении массива:

Dim B(1 То 3, 1 То 3) As Single

Dim A(1 To 12) As Integer

Массив в программе определяется поэлементно. Например:

Dim B(1 To 2, 1 То 2) As Single

B(1,1)=2

В(1,2)=4

В(2,1)=1

Динамические массивы

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

Dim R() As Single

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

ReDim R(l To n)

Операторы

Условный оператор

Однострочная форма (когда в каждой ветви не более одного оператора):

If <условие> Then <оператор> [Else <оператор>]

Блочная форма (когда в каждой ветви более одного оператора):

If <условие> Then

<операторы1>

Else

<операторы2>

End If

Расширенная модификация блочной формы (когда несколько условий):

If <условие1> Then

<операторы1>

ElseIf <условие2> Then

<операторы2>

...

[ Else

<операторыN>]

End If

Операторы цикла

В языке VBА есть два вида операторов цикла: условный и со счетчиком.

Условный цикл:

а) с верхним окончанием

Do { While | Until} <условие>

<операторы тела цикла>

Loop

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

Do

<операторы тела цикла>

Loop { While | Until} условие

Оператор Exit Do обеспечивает немедленный выход из цикла.

Цикл со счетчиком (используется, если число повторений известно заранее):

For <счетчик> = <начальное значение> То <конечное значение> [ Step <шаг>]

<операторы тела цикла>

Next [<счетчик>]

Если конструкция Step опущена, то подразумевается шаг =+1.

Оператор немедленного выхода из цикла Exit For.

Оператор выбора

Select Case <выражение>

Case <списоквыражений1> <оператор1>

Case <списоквыражений2> <оператор2>

…

[ Case Else <оператор else> ]

Поиск по сайту: