Создание пользовательских типов данных

Можно создавать пользовательские типы данных на основе основных типов данных. Можно определить такой тип данных для отдельной переменной, в которой хранится несколько элементов информации различных типов данных.

Например, можно сконструировать одну переменную для обработки имени клиента (тип String), даты покупки (тип Date) и суммы покупки (тип Currency). Определять пользовательские типы возможно только в разделе описаний модуля.

Синтаксис

Область_видимости Type имя_переменной

Имя_элемента as тип

….

End type

Пример

Public Type клиент

name As String

data As Date

zena As Currency

End Type

После определения пользовательского типа данных можно объявить переменную этого типа.

Пример

Dim c As клиент

К элементу этой переменной можно обращаться с помощью следующей синтаксической конструкции:

Имя_переменной.имя_элемента

Пример

C.name, c.data, c.zena

Cоздание массивов постоянной длины

Массивы постоянной длины создаются с помощью операторов Dim или Static.

Cинтаксис

Dim имя_массива (границы_индекса) as [тип массива]

Пример

Dim a(20) As Integer

В этом примере объявлен массив с именем а, состоящий из 21 элемента, с нумерацией от 0 до 20. В скобках указывается только верхняя граница.

Static B(1 To 5) As String

Здесь происходит объявление статического массива с именем В, состоящий из 5 элементов типа String, с нумерацией элементов от 1 до 5.

Cоздание массива из списка значений

Функция Array создаёт массив из списка значений, переданных ей в качестве аргументов.

Синтаксис вызова функции

Array(список_аргументов)

Функция Array создаёт массив из значений аргументов, перечисленных в списке_аргументов, и возвращает переменную типа Variant, содержащую массив. Значения в списке разделяются запятыми; если список пуст, будет создан массив размера нуль.

Функции LBound и Ubound возвращают, соответственно, наименьший и наибольший индексы указанного измерения в массиве.

LBound (имя_массива,измерение)

UBound (имя_массива,измерение)

Необязательный аргумент измерение-это целое число, обозначающее измерение массива. Если этот параметр не указан, то будут возвращены границы первого измерения.

Пример

Dim a As Variant

a = Array(2, 3, 45, 12)

Функция Lbound(a) вернёт значение равное 0, а функция Ubound(a) вернёт значение равное 3.

А(0)=2, А(1)=3, А(2)=45, А(3)=12