Arrays
From Apache OpenOffice Wiki
Apache OpenOffice
==
==
Dim MyArray(3)
MyArray(0)MyArray(1)MyArray(2)MyArray(3)
Dim MyInteger(3) As Integer
Dim MyInteger(5 To 10) As Integer
Dim MyInteger(-10 To -5) As Integer
Dim s(-53000 to 89000) As String
s(-52000) = "aa"
s(79999) = "bb"
print s(-52000), s(79999)
 |
==
Option Base 1
Apache OpenOffice
Option Base 1
Option Base 1
' ...
Dim MyInteger(3)
MyInteger(1)MyInteger(2)MyInteger(3)MyInteger(4)
|
Apache OpenOfficeOption Base 1Apache OpenOfficeMyInteger(3)Apache OpenOfficeOption CompatibleApache OpenOffice |
==
Apache OpenOffice
Dim MyIntArray(5, 5) As Integer
=
Apache OpenOffice
==
Apache OpenOffice
ReDim MyArray(10)
|
Dim MyArray()Apache OpenOfficeReDim |
Dim MyArray(4) As Integer ' Declaration with five elements
' ...
ReDim MyArray(10) As Integer ' Increase to 11 elements
' ...
ReDim MyArray(20) As Integer ' Increase to 21 elements
Preserve
Dim MyArray(10) As Integer ' Defining the initial
' dimensions
' ...
ReDim Preserve MyArray(20) As Integer ' Increase in
' data field, while
' retaining content
Preserve
|
PreserveApache OpenOffice |
ReDimPreserve
==
Dim MyArray(10) As Integer
' ... some instructions
Dim n As Integer
n = 47 ' could be the result of a computation
Redim MyArray(n) As Integer
MsgBox(LBound(MyArray)) ' displays : 0
MsgBox(UBound(MyArray)) ' displays : 47
Dim MyArray(10, 13 to 28) As Integer
MsgBox(LBound(MyArray, 2)) ' displays : 13
MsgBox(UBound(MyArray, 2)) ' displays : 28
==
Dim s() As String ' declare an empty array
' --- later in the program ...
Redim s(13) As String
Dim MyArray() As Integer
MsgBox(LBound(MyArray)) ' displays : 0
MsgBox(UBound(MyArray)) ' displays : -1
==
=
==
==
=
| Content on this page is licensed under the Public Documentation License (PDL). |
