Рита Коноплянова

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив и

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив

Глава 2. Языковые Конструкции
массив с пятью элементами будет иметь элементы пронумерованные от 0 до 4. Используйте
ключевые слова Option Base 1, чтобы изменить значение по умолчанию для нижней
границы массива и начинать нумерацию с 1, а не с 0. Это должно быть сделано перед любым
другим выполняемым оператором в программе.
Option Base { 0 | 1 }
Совет Определяй нижнюю границу массива вместо того, чтобы полагаться на
поведение по умолчанию. Это более переносимо, и не будет изменяться, при
использовании оператора Option Base.
Dim a(3) предоставляет четыре элемента: (0), (1), (2), и (3). Оператор Option Base не
изменяет число элементов, которые может хранить массив; он изменяет только индексацию.
Используя Option Base 1, тот же самый оператор все еще предоставляет четыре элемента:
(1), (2), (3), и (4). Я считаю это поведение неинтуитивным и рекомендую не использовать
Option Base. Если Вы хотите определенные границы массива, более предпочтительным
является явное объявление границ массива. Например, Dim a(1 To 4). Option Base имеет
проблемы, связанные с ясностью документирования и обеспечением переносимости.
Совместимость В Visual Basic обращается с Option Base 1 по-другому чем OOo Basic.
VB изменяет нижнюю границу на 1, но не изменяет связанную верхнюю
границу. Visual Basic .NET больше не поддерживает Option Base. Когда
OOo Basic поддерживает Option Compatible, тогда Option Base 1 не
увеличивает верхнюю границу на 1. Другими словами, OOo Basic будет
действовать как VB.
Получение доступа и изменение значений в массиве просты (см. Листинг 19).
Инициализация массива этим путем утомительна.
Листинг 19: ExampleSimpleArray1 может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon?
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2, 3)
Print "b(-2) = " & b(-2)
End Sub
Чтобы быстро заполнять массив Variant, используйте функцию Array (см. Листинг 20),
который возвращает массив Variant со включенными данными (см. Рис. 20). Функции LBound
и Ubound возвращаются нижнюю и верхнюю границы массива, соответственно. Процедуры,
поддерживаемые OOo Basic сведены в Таблицу 11 и подробнее обсуждаются далее.
Таблица 11. Краткое описание подпрограмм и функций, связанных с массивами.
Функция Описание
Array(args) Возвращает массив Variant, который содержит аргументы.
DimArray(args) Возвращает пустое массив Variant. Аргументы определяют
размерность.
IsArray(var) Возвращает True, если указанная переменная - массив, False в
противном случае.
- 40 -
Массивы
Join(array)
Join(array, delimiter)
Объединяет элементы массива, разделяемые дополнительным
строковым разделителем и возвращает как строку.
Разделитель по умолчанию — один пробел.
Lbound(array)
LBound(array, dimension)
Возвращает нижнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
ReDim var(args) As Type Изменяет размерность массива, используя тот же самый
синтаксис что и оператор DIM. Ключевое слова Preserve
сохраняет существующие данные неповрежденными.
Split(str)
Split(str, delimiter)
Split(str, delimiter, n)
Разбивает строковый аргумент, превращая его в массив строк.
Разделитель по умолчанию — пробел. Дополнительный
аргумент “n” ограничивает число возвращаемых строк.
Ubound(array)
UBound(array, dimension)
Возвращает верхнюю границу массива, переданного в
качестве аргумента. Дополнительное параметр определяет
какую размерность проверить. Первая размерность — 1.
Рис. 20. В одном и том же массиве содержатся различные типы переменных.
Листинг 20: ExampleArray может быть найдена в модуле Variables в файлах исходных
текстов этой главы SC02.sxw.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem Строка, Целое число, Число двойной точности, Дата
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Переменную, определенную как массив, но для которой не указаны размерности, например
Dim a(), называют пустым массивом. Тест на пустой массив, равенство верхней границы
массива с нижней границей. Если верхняя граница меньше чем нижняя граница, Вы имеете
пустой массив, для которого не были установлены никакие размерности. Множество, для
которого было заданы размерности, например Dim a (5), не пуст.
Возможно сослаться на весь массив. Например, во Листинге 20, оператор Lbound(a)
возвращает нижнюю границу массива a(). Массив, объявленный с заданными
размерностями должен всегда сопровождаться круглыми скобками (). Например, переменная
b() в Листинге 21 должна использоваться как b(). Массив, объявленный без указания
размерностей может быть записан с или без замыкающих круглых скобок. Например,
переменная a() в Листинге 21 может использоваться как или a или a().
Листинг 21. Круглые скобки не всегда требуются, но всегда допустимы.
Sub ArrayDimensionError
Dim a(), b(1 To 2), c
REM Valid constructs
LBound(a()) : LBound(a) : LBound(b()) : LBound(c()) : Lbound(c)
REM Неверное использование LBound(b) приводит к ошибке во время выполнения
REM Не соответствуют спецификации размерностей
LBound(b)
End Sub
- 41 -
Глава 2. Языковые Конструкции
Изменение размера массива
Требуемый размер массива не всегда заранее известен. Иногда размер известен, но он
периодически изменяется, и код должен изменяться. Переменная массива может быть
объявлена с или без определения размера. OOo Basic предоставляет несколько различных
методов для установки или изменения размера массива.
Функция Array порождает массив Variant, который содержит данные. Это быстрый способ
инициализировать массив. Вы не обязаны устанавливать размер массива, но если Вы это
сделали, то он изменится на соответствующий массиву, возвращенному функцией Array.
Dim a()
a = Array(3.141592654, "PI", 9.81, "Gravity")
Аргументы передают функции Array данные, которыми становятся, возвращаемые в массиве
Variant. Функция DimArray, с другой стороны, интерпретирует аргументы как размары
массива для его создания (см. Листинг 22). Аргументами может быть выражение, таким
образом может использоваться переменная для установки размера.
Листинг 22: ExampleDimArray может быть найдена в модуле Variables в файлах
исходных текстов этой главы SC02.sxw.
Sub ExampleDimArray
Dim a(), i%
a = Array(10, 11, 12)
Print "" & LBound(a()) & " " & UBound(a()) Rem 0 2
a() = DimArray(3) REM то же самое, что Dim a(3)
a() = DimArray(2, 1) REM то же самое, что Dim a(2,1)
i = 4
a = DimArray(3, i) Rem то же самое, что a(3,4)
Print "" & LBound(a() ,1) & " " & UBound(a() ,1) Rem 0, 3
Print "" & LBound(a() ,2) & " " & UBound(a() ,2) Rem 0, 4
a() = DimArray() REM пустой массив
End Sub
Функции Array и DimArray обе возвращают массив Variant. Оператор ReDim изменяет размер
существующего массива. Он может изменить и отдельное измерение и количество
измерений. Аргументами могут быть выражения, потому что оператор ReDim определяет
размеры во время выполнения.
Dim e() As Integer, i As Integer
i = 4
ReDim e(5) As Integer REM 0 To 5 является правильным
ReDim e(3 To 10) As Integer REM 3 To 10 является правильным
ReDim e(3, i) As Integer REM (0 To 3, 0 To 4) является правильным
Совет Хотя Lbound и UBound не работают с пустым массивом возвращенным
DimArray(), потому что массив не имеет измерений, оба метода будут
работать с пустыми массивами в OOo 2.0. Пустой массив имеет одно
измерение, нижняя граница — ноль, а верхняя граница — -1. Используйте
ReDim, чтобы существующий массив стал пустым.
Оператор ReDim поддерживает ключевое слово Preserve. Оно пытается сохранить данные,
когда изменяются размеры массива. Увеличение размера массива должно сохранить все
данные, но уменьшение размера приводит к потере части данных вследствие усечения.
Данные могут быть обрезанными с обоих концов. Если элемент из нового массива
существовал в старом, значение не изменяется. В отличие от некоторых вариантов BASIC,
OOo Basic позволяет изменять все измерения массива с сохранением данных.
Dim a() As Integer
ReDim a(3, 3, 3) As Integer
a(1, 1, 1) = 1 : a(1, 1, 2) = 2 : a(2, 1, 1) = 3
ReDim preserve a(-1 To 4, 4, 4) As Integer
Print "(" & a(1, 1, 1) & ", " & a(1, 1, 2) & ", " & a(2, 1, 1) & ")"
ReDim определяет и измерения и тип. Тип, определяемый оператором ReDim должен
соответствовать, типу заданному при объявлении переменной. Если типы будут отличаться,
- 42 -
Массивы
то Вы увидите ошибку компиляции “Переменная уже определена”.
В Листинге 23 приведена вспомогательная функция, которая принимает простой массив