Экономическая информатика-стр.386

ReDim [Preserve] ИмяМассива(индексы) [As ТипДанных]

где ReDim - ключевое слово, указывающее, что переопределяются размеры массива;

Preserve - необязательное ключевое слово, с помощью которого дается указание, чтобы все элементы переопределяемого массива сохранили свое значение; индексы - размерности массива (до 60).

Пример:

Dim strMyArray 0 As String 'Декларация динамического массива Dim intValArray As Integer 'Декларация переменной, для хране_

ния' размерности IntValArray=9    'Инициализация значения

ReDim strMyArray (IntValArray) 'Одномерный массив из 9 элементов ' (базовый индекс равен 0)

ReDim strMyArray (3 То IntValArray, 1 То IntValArray)

' Двумерный_

'массив с базовыми индексами,_ отличными от нуля

Типы данных, определяемые пользователем

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

Создание нового типа осуществляется следующей конструкцией:

Туре ИмяТипа

Имя 1 As Туре ' Структурный элемент типа - базовый тип Имя2 As Туре ' Структурный элемент типа - базовый тип

ИмяЫ As Туре ' Структурный элемент типа - базовый тип

End Туре где Туре    - ключевое слово, которое указывает, что создается новый пользовательский тип данных;

ИмяТипа    - имя создаваемого типа (идентификатор);

NameNAsType - описание структурного элемента создаваемого типа;

End Туре    - ключевые слова, завершающие описание нового типа.

Например, пользовательский тип данных, предназначенный для хранения фамилии, даты рождения и даты поступления на работу сотрудника, может быть объявлен следующим образом: