Dim Statement
рдПрдХ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рдШреЛрд╖рдгрд╛ рдЧрд░реНрджрдЫ ред
рдпрджрд┐ рдЪрд▓рд╣рд░реВ рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдо(рдЙрджрд╛рд╣рд░рдгрдХреЛрд▓рд╛рдЧрд┐, DIM sParрез, sParреи, sParрей AS STRING)рджреНрд╡рд╛рд░рд╛ рдмрд┐рднрд╛рдЬрди рдЧрд░рд┐рдиреНрдЫ рднрдиреЗ рднрд┐рдиреНрди рдЪрд▓рд╣рд░реВрдорд╛рддреНрд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред рдкреНрд░рддреНрдпреЗрдХ рдЪрд▓рдХреЛрд▓рд╛рдЧрд┐ рдЫреБрдЯреНрдЯреИ рдкрд░рд┐рднрд╛рд╖рд╛ рд░реЗрдЦрд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
Dim sPar1 As String
Dim sPar2 As String
Dim sPar3 As String
Dimрд▓реЗ рд╕реНрдердЖрдирд┐рдп рдЪрд▓рд╣рд░реВ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рднрд┐рддреНрд░ рдШреЛрд╖рдгрд╛ рдЧрд░реНрджрдЫ ред рд╡рд┐рд╢реНрд╡рд╡реНрдпрд╛рдкреА рдЪрд▓рд╣рд░реВрд▓реЗ PUBLIC рд╡рд╛ PRIVATE рдХрдердирд╣рд░реВрд╕рдБрдЧ рдШреЛрд╕рдгрд╛ рдЧрд░реНрджрдЫрдиреН ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЪрд▓ рдирд╛рдо: рдХреБрдиреИ рдкрдирд┐ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рдирд╛рдо ред
рд╕реБрд░, рдЕрдиреНрддреНрдп: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирд╣рд░реВ рд╡рд╛ рдЕрдЪрд▓рд╣рд░реВ рдЬрд╕рд▓реЗ рддрддреНрд╡рд╣рд░реВрдХреЛ рд╕рдЩреНрдЦреНрдпрд╛ рд░ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рджрд╛рдпрд░рд╛ рдкрд░рд┐рднрд╛рд╖реАрдд рдЧрд░реНрджрдЫ (NumberElements=(end-start)+1) ред
рдпрджрд┐ ReDim рдХрд╛рд░реНрдпрд╡рд┐рдзреА рд╕реНрддрд░ рд▓рд╛рдЧреВ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕реБрд░реБ рд░ рдЕрдиреНрддреНрдпрд▓реЗ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рджрд┐рдирд╕рдХреНрдЫ ред
рдЪрд▓ рдкреНрд░рдХрд╛рд░:рдХреБрдЮреНрдЬреА рд╢рдмреНрдж рдЬрд╕рд▓реЗ рдЪрд▓рдХреЛ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдШреЛрд╖рдгрд╛ рдЧрд░реНрджрдЫ ред
рд╢рдмреНрджрдХреБрдЮреНрдЬреА: рдЪрд▓ рдкреНрд░рдХрд╛рд░
рдмреВрд▓: рдмреБрд▓рд┐рдпрди рдЪрд▓(рд╕рддреНрдп,рдЭреБрдареЛ)
рдореБрджреНрд░рд╛: рдореБрджреНрд░рд╛-рдЪрд▓(рек рджрд╢рдорд▓рд╡рд╕рдБрдЧ рдореБрджреНрд░рд╛)
рдорд┐рддрд┐: рдЪрд▓ рдорд┐рддрд┐
рджреНрд╡рд┐-рдЧреБрдирд╛: рджреНрд╡рд┐-рдЧреБрдирд╛-рд╢реБрджреНрдзрд┐рдХрд░рдг рдЙрддреНрдкреНрд▓рдмрди-рдмрд┐рдиреНрджреБ рдЪрд▓(рез,ренренрепренремрепрейрезрейрекреоремреирейреиx┬арезрежEрейрежрео - рдЪ,репрекрежремрелремрекрелреорекреирекренx резрежE-рейреирек)
рдЗрдиреНрдЯрд┐рдЬрд░: рдЪрд▓ рдЗрдиреНрдЯрд┐рдЬрд░ (-рейреиренремрео - рейреиренремрен)
рд▓рд╛рдореЛ: рд▓рд╛рдореЛ рдЗрдиреНрдЯрд┐рдЬрд░ (-реи.резрекрен.рекреорей.ремрекрео - реи.резрекрен.рекреорей.ремрекрен)
рд╡рд╕реНрддреБ: рд╡рд╕реНрддреБ рдЪрд▓ (рджреНрд░рд╖реНрдЯрдмреНрдп: рдпреЛ рдЪрд▓рд▓реЗ рд╕реЗрдЯрд╕рдБрдЧ рдХреНрд░рдордмрджреНрдз рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрди рд╕рдХреНрдЫ!)
рдПрдХрд▓: рдПрдХрд▓-рд╢реБрджреНрдзрд┐рдХрд░рдг рдЙрддреНрдкреНрд▓рд╛рд╡рди-рдмрд┐рдиреНрджреБ рдЪрд▓ (рей,рекрежреиреореирей x резрежEрейрео - рез,рекрежрезреирепрео x резрежE-рекрел)
рд╕реНрдЯреНрд░рд┐рдЩ:рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рд▓реЗ рдЕрдзрд┐рдХрддрдо ремрек,режрежрежASCII рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдЫ ред
[Variant]: рднрд┐рдиреНрди рдЪрд▓ рдкреНрд░рдХрд╛рд░ (рдкрд░рд┐рднрд╛рд╖рд╛рджреНрд╡рд╛рд░рд╛ рдирд┐рд░рджрд┐рд╖реНрдЯ рд╕рдмреИ рдкреНрд░рдХрд╛рд░рд╣рд░реВрд▓рд╛рдИ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдЫ) ред рдпрджрд┐ рдХреБрдЮреНрдЬреА рд╢рдмреНрдж рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирдЧрд░рд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рднрд┐рдиреНрди рдкреНрд░рдХрд╛рд░рдХрд╛ рдЪрд▓рд╣рд░реВ рд╕реНрд╡рдЪрд╛рд▓рд┐рддрд░реВрдкрдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рд╣реБрдиреНрдЫрди рдпрджрд┐ рдпреЛ рдирднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ DefBool рджреЗрдЦрд┐ DefVar рд╕рдореНрдо рдХрдерди рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ ред
рдЖрдзрд╛рд░рднреВрдд LibreOffice рдорд╛, рддрдкрд╛рдИрдБрд▓реЗ рд╕реНрдкрд╖реНрдЯ рд░реВрдкрдорд╛ рдЪрд▓рд╣рд░реВ рдШреЛрд╖рдгрд╛ рдЧрд░реНрдиреБ рдЖрд╡рд╢реНрдпрдХ рдЫреИрди ред рддрд╛рдкрдирд┐, рддрд┐рдиреАрд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБ рдЕрдШрд┐ рдПрд░реЗ рдШреЛрд╖рдгрд╛ рдЧрд░реНрдиреБ рдкрд░реНрджрдЫ ред рддрдкрд╛рдИрдБрд▓реЗ рдбрд┐рдо рдХрдердирд╣рд░реВ рд╕рдБрдЧ рдмрд╣реБ рдШреЛрд╖рдгрд╛рд╣рд░реВ рд╡рд┐рднрд╛рдЬрди рдЧрд░реНрди рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдорд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐ рдЪрд▓ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рдЪрд▓ рдкреНрд░рдХрд╛рд░ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди, рдирд┐рдореНрди рдирд╛рдо рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдкреНрд░рдХрд╛рд░-рдШреЛрд╖рдг рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН рд╡рд╛ рдЕрдиреБрдХреВрд▓ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
LibreOffice рдЖрдзрд╛рд░рднреВрдд рд╕рдорд░реНрдерди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдПрдХрд╛ рдЪрд▓ рдкреНрд░рдХрд╛рд░рджреНрд╡рд╛рд░рд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░рд┐рдПрдХрд╛ рдПрдХрд▓ рд╡рд╛ рдмрд╣реБ -рдЖрдпрд╛рдорд┐рдд рдПрд░реЗрд╣рд░реВ ред рддрдкрд╛рдИрдБрд▓реЗ рд╕рдореНрдкрд╛рджрди рдЧрд░реНрди рдЪрд╛рд╣рдиреБрднрдПрдХреЛ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╕рд╛рдорд╛рдЧреНрд░реАрд╣рд░реВрдорд╛ рд╕реВрдЪреАрд╣рд░реВ рд╡рд╛ рддрд╛рд▓рд┐рдХрд╛рд╣рд░реВ рднрдПрдорд╛ рдПрд░реЗрд╣рд░реВ рдЕрдиреБрдХреВрд▓ рд╣реБрдиреНрдЫрдиреН ред рдПрд░реЗрд╣рд░реВрдХреЛ рдлрд╛рдЗрджрд╛ рддреНрдпреЛ рд╣реБрдиреНрдЫ рдХрд┐ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рдЕрдиреБрд╕рд╛рд░ рд╣рд░реЗрдХ рддрддреНрд╡рд╣рд░реВрдХреЛ рд╕рдореНрд╡реЛрдзрди рдЧрд░реНрди рд╕рдореНрднрд╡ рд╣реБрдиреНрдЫ, рдЬрд╕рд▓рд╛рдИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╡рд╛ рдЪрд▓рд╣рд░реВрдХреЛ рд░реВрдкрдорд╛ рд╕реВрддреНрд░рдмрджреНрдз рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред
рдПрд░реЗрд╣рд░реВ DimрдХрдердирд╕рдБрдЧ рдШреЛрд╖рдгрд╛ рд╣реБрдиреНрдЫрдиреН ред рддрд┐рдиреАрд╣рд░реВ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рджрд╛рдпрд░рд╛рдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрдирд▓рд╛рдИ рджреБрдИрдЯрд╛ рд╡рд┐рдзрд┐рд╣рд░реВ рдЫрдиреН:
DIM рдкрд╛рда (реиреж)рдорд╛ рд╕реНрдЯреНрд░рд┐рдЩрдХреЛрд░реВрдкрдорд╛ REM реирез рддрддреНрд╡рд╣рд░реВ реж рдмрд╛рдЯ реиреж рд╕рдореНрдо рдХреНрд░рдорд╛рдЩреНрдХрд┐рдд рднрдПрдХрд╛ рдЫрдиреН ред
DIM рдкрд╛рда (рел рджреЗрдЦрд┐ реирел) рд╕реНрдЯреНрд░рд┐рдЩрдХреЛрд░реВрдкрдорд╛ REM реирез рддрддреНрд╡рд╣рд░реВ рел рдмрд╛рдЯ реирел рд╕рдореНрдо рдХреНрд░рдорд╛рдЩреНрдХрд┐рдд рднрдПрдХрд╛ рдЫрдиреН ред
DIM рдкрд╛рда (-резрел рджреЗрдЦрд┐ рел) рд╕реНрдЯреНрд░рд┐рдЩрдХреЛрд░реВрдкрдорд╛ REM реирез рддрддреНрд╡рд╣рд░реВ ( реж рд╕рд╣рд┐рдд) ред
REMрдорд╛ -резрел рджреЗрдЦрд┐ рел рд╕рдореНрдо рдХреНрд░рдорд╛рдЩреНрдХрд┐рдд рднрдПрдХрд╛ рдЫрдиреН ред
рджреНрд╡рд┐-рдЖрдпрд╛рдорд┐рдХ рдбреЗрдЯрд╛ рдлрд╛рдБрдЯ
DIM рдкрд╛рда(реиреж,реи) рд╕реНрдЯреНрд░рд┐рдЩ рдХреЛ рд░реВрдкрдорд╛ REM ремрей рддрддреНрд╡рд╣рд░реВ; реж рдмрд╛рдЯ реиреж рд╕рдореНрдо рд╕реНрддрд░ рез, реж рдмрд╛рдЯ реиреж рд╕рдореНрдо рд╕реНрддрд░ реи, реж рдмрд╛рдЯ реиреж рд╕рдореНрдо рд╕реНрддрд░ рей ред
рдпрджрд┐ ReDim рдХрдердирд▓реЗ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рд╡рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рдЖрдпрд╛рдорд┐рдХрд╣рд░реВрдХреЛ рдирдореНрдмрд░ рдкрд░рд┐рднрд╖рд┐рдд рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рддрдкрд╛рдИрдБ рдЧрддрд┐рд╢реАрд▓рдХреЛ рд░реВрдкрдорд╛ рдПрд░реЗрдХрд╛ рдкреНрд░рдХрд╛рд░рд╣рд░реВ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рдЬрд╕рд▓реЗ рдПрд░реЗ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдЫ ред рд╕рд╛рдзрд╛рд░рдгрддрдпрд╛,рддрдкрд╛рдИрдБ рдПрдХрдкрдЯрдХ рдорд╛рддреНрд░ рдПрд░реЗ рдЖрдпрд╛рдорд┐рдХ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рд░ рддрд╕рд▓рд╛рдИ рдкрд░рд┐рдорд╛рд░реНрдЬрди рдЧрд░реНрди рд╕рдХрд┐рдБрджреИрди ред рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рднрд┐рддреНрд░, рддрдкрд╛рдИрдБ ReDimрд╕рдБрдЧ рдПрд░реЗ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рддрдкрд╛рдИрдБ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрд╕рдВрдЧрдорд╛рддреНрд░ рдЖрдпрд╛рдорд┐рдХрд╣рд░реВ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рдЖрд╡рд╢реНрдпрдХрддрд╛ рднрдиреНрджрд╛ рдмрдвреА рднрдПрдХрд╛ рдлрд╛рдБрдЯрд╣рд░реВрд▓рд╛рдИ рдорд╛рддреНрд░ рдпрд╕рд▓реЗ рдирд┐рд╢реНрдЪрд┐рдд рдЧрд░реНрджрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleDim1
Dim sVar As String
Dim iVar As Integer
sVar = "Office"
End Sub
Sub ExampleDim2
' рджреНрд╡рд┐-рдЖрдпрд╛рдорд┐рдХ рдбреЗрдЯрд╛ рдлрд╛рдБрдЯ
Dim stext(20,2) As String
рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ Const sDim = " рдЖрдпрд╛рдорд┐рдХ:"
For i = 0 To 20
For ii = 0 To 2
stext(i,ii) = str(i) & sDim & str(ii)
Next ii
Next i
For i = 0 To 20
For ii = 0 To 2
MsgBox stext(i,ii)
Next ii
Next i
End Sub