Dim Statement
āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻ ā§āϝāĻžāϰ⧠āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰā§āĨ¤
āϝāĻĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞāϏāĻŽā§āĻš āĻāĻŽāĻž āĻĻā§āĻŦāĻžāϰāĻž āĻāĻžāĻ āĻāϰāĻž āĻĨāĻžāĻā§ (āϝā§āĻŽāύ, DIM sPar1, sPar2, sPar3 AS STRIN), āϤāĻžāĻšāϞ⧠āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āĻā§āϰāĻŋā§ā§āύā§āĻ āĻā§āϰāĻŋā§ā§āĻŦāϞ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻž āϝāĻžāĻŦā§āĨ¤ āĻĒā§āϰāϤāĻŋāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞā§āϰ āĻāύā§āϝ āĻāĻāĻāĻŋ āĻĒā§āĻĨāĻ āĻŦāϰā§āĻŖāύāĻž āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§āύāĨ¤
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][,...]]
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
VarName: āϝ⧠āĻā§āύ āĻāϞāĻ āĻ āĻĨāĻŦāĻž āĻ ā§āϝāĻžāϰ⧠āύāĻžāĻŽāĨ¤
āĻļā§āϰā§, āϏāĻŽāĻžāĻĒā§āϤ: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻŽāĻžāύ āĻ āĻĨāĻŦāĻž āϧā§āϰā§āĻŦāĻ āϝāĻž āĻāϞāĻŋāĻŽā§āύā§āĻā§āϰ āĻĒāϰāĻŋāĻŽāĻžāĻŖ (NumberElements=(end-start)+1) āĻāĻŦāĻ āĻāύāĻĄā§āĻā§āϏā§āϰ āĻĒāϰāĻŋāϏāϰ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻļā§āϰ⧠āĻ āĻĨāĻŦāĻž āϏāĻŽāĻžāĻĒā§āϤ āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āĻšāϤ⧠āĻĒāĻžāϰ⧠āϝāĻĻāĻŋ ReDim āĻĒā§āϰāϏāĻŋāĻāĻžāϰ āϏā§āϤāϰ⧠āĻĒā§āϰā§ā§āĻ āĻāϰāĻž āĻšā§āĨ¤
VarType: āĻā§āĻā§āĻžāϰā§āĻĄ āϝāĻž āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞā§āϰ āĻĄāĻžāĻāĻž āĻāĻžāĻāĻĒ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻā§āĻāϝāĻŧāĻžāϰā§āĻĄ: āĻāϞāĻ āϧāϰāύ
Bool: āĻŦā§āϞāĻŋāϝāĻŧāĻžāύ āĻāϞāĻ (True, False)
āĻŽā§āĻĻā§āϰāĻž: āĻŽā§āĻĻā§āϰāĻž āĻā§āϰāĻŋā§āĻŦāϞ (ā§Ē āĻĻāĻļāĻŽāĻŋāĻ āϏā§āĻĨāĻžāύ āϏāĻš āĻŽā§āĻĻā§āϰāĻž āĻŽāĻžāύ)
āϤāĻžāϰāĻŋāĻ: āϤāĻžāϰāĻŋāĻ āĻāϞāĻ
Double: Double-precision floating-point variable (1,79769313486232 x 10E308 - 4,94065645841247 x 10E-324)
āĻāύāĻāĻŋāĻāĻžāϰ: āĻāύāĻāĻŋāĻāĻžāϰ āĻāϞāĻ (-32768 - 32767)
āϞāĻ: āĻĻā§āϰā§āĻ āĻāύāĻāĻŋāĻāĻžāϰ āĻāϞāĻ (-2.147.483.648 - 2.147.483.647)
āĻ āĻŦāĻā§āĻā§āĻ: āĻ āĻŦāĻā§āĻā§āĻ āĻā§āϰāĻŋā§ā§āĻŦāϞ (āύā§āĻ: āĻāĻ āĻā§āϰāĻŋā§ā§āĻŦāϞāĻāĻŋ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āϏā§āĻ āĻĻā§āĻŦāĻžāϰāĻž āϧāĻžāϰāĻžāĻŦāĻžāĻšāĻŋāĻāĻāĻžāĻŦā§ āύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻšāϤ⧠āĻĒāĻžāϰā§!)
Single: Single-precision floating-point variable (3,402823 x 10E38 - 1,401298 x 10E-45).
āώā§āĻā§āϰāĻŋāĻ: āώā§āĻā§āϰāĻŋāĻ āĻāϞāĻ āϏāϰā§āĻŦā§āĻŦā§āĻ ā§Ŧā§Ē,ā§Ļā§Ļā§Ļ ASCII āĻ āĻā§āώāϰ āĻĻā§āĻŦāĻžāϰāĻž āĻāĻ āĻŋāϤāĨ¤
[Variant]: āĻā§āϰāĻŋā§ā§āύā§āĻ āĻā§āϰāĻŋā§āĻŦāϞ āϧāϰāύ (āϏāĻāϞ āϧāϰāύ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ, āĻŦāϰā§āĻŖāύāĻž āĻĻā§āĻŦāĻžāϰāĻž āĻĒā§āĻĨāĻ)āĨ¤ āϝāĻĻāĻŋ āĻāĻāĻāĻŋ āĻā§āĻā§āĻžāϰā§āĻĄ āĻāϞā§āϞā§āĻāĻŋāϤ āύāĻž āĻĨāĻžāĻā§, āĻā§āϰāĻŋā§ā§āĻŦāϞ āϏā§āĻŦā§āĻāĻā§āϰāĻŋā§āĻāĻžāĻŦā§ āĻā§āϰāĻŋā§ā§āύā§āĻ āϧāϰāύ āĻšāĻŋāϏā§āĻŦā§ āύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻšā§, āϝāĻĻāĻŋ āύāĻž DefBool āĻĨā§āĻā§ DefVar āĻĒāϰā§āϝāύā§āϤ āĻāĻāĻāĻŋ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϝāĻŦāĻšā§āϤ āĻšā§āĨ¤
LibreOffice āĻŦā§āϏāĻŋāĻā§, āĻāĻĒāύāĻžāϰ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāĻžāϰ āĻĒā§āϰā§ā§āĻāύ āύā§āĻāĨ¤ āϝāĻĻāĻŋāĻ, āĻāĻāĻāĻŋ āĻ ā§āϝāĻžāϰ⧠āĻŦā§āϝāĻŦāĻšāĻžāϰā§āϰ āĻĒā§āϰā§āĻŦā§ āϤāĻž āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāϤ⧠āĻšāĻŦā§āĨ¤ āĻāĻĒāύāĻŋ āĻāĻāĻāĻŋ Dim āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ, āĻāĻāĻžāϧāĻŋāĻ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰā§āĻļāύ āĻĒā§āĻĨāĻ āĻāϰāĻžāϰ āĻāύā§āϝ āĻāĻŽāĻž āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύāĨ¤ āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞā§āϰ āϧāϰāύ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, āύāĻžāĻŽ āĻ āύā§āĻŦāϰā§āϤ⧠āĻāĻāĻāĻāĻŋ āϧāϰāύ-āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰā§āĻļāύ āĻ āĻā§āώāϰ āϏāύā§āύāĻŋāĻŦā§āĻļ āĻāϰāĻžāύ āĻ āĻĨāĻŦāĻž āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻā§āĻā§āĻžāϰā§āĻĄ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§āύāĨ¤
LibreOffice āĻŦā§āϏāĻŋāĻ āĻāĻāĻāĻŋ āĻāĻāĻ āĻ āĻĨāĻŦāĻž āĻŦāĻšā§ āĻŽāĻžāϤā§āϰāĻŋāĻ āĻ ā§āϝāĻžāϰ⧠āϏāĻŽāϰā§āĻĨāύ āĻāϰ⧠āĻĨāĻžāĻā§ āϝāĻž āĻāĻāĻāĻŋ āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āĻā§āϰāĻŋā§ā§āĻŦāϞā§āϰ āϧāϰāύ āĻĻā§āĻŦāĻžāϰāĻž āύāĻŋāϰā§āĻĻā§āĻļāĻŋāϤ āĻšā§āĨ¤ āϝāĻĻāĻŋ āĻāĻāĻāĻŋ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽā§ āϤāĻžāϞāĻŋāĻāĻž āĻ āĻĨāĻŦāĻž āϏāĻžāϰāĻŖāĻŋ āĻĨāĻžāĻā§ āϤāĻžāĻšāϞ⧠āĻāϤ⧠āĻ ā§āϝāĻžāϰ⧠āĻāĻĒāϝā§āĻā§āϤ āĻšā§ āϝāĻž āĻāĻĒāύāĻŋ āϏāĻŽā§āĻĒāĻžāĻĻāύāĻž āĻāϰāϤ⧠āĻāĻžāύāĨ¤ āĻ ā§āϝāĻžāϰā§āϰ āϏā§āĻŦāĻŋāϧāĻž āĻšāϞā§, āĻāύāĻĄā§āĻā§āϏ āĻ āύā§āϏāĻžāϰ⧠āĻĒā§āĻĨāĻ āĻāϞāĻŋāĻŽā§āύā§āĻ āύāĻŋāϰā§āĻĻā§āĻļ āĻāϰāĻž āϝāĻžā§, āϝāĻž āĻāĻāĻāĻŋ āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āĻ āĻĨāĻŦāĻž āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻĻā§āĻŦāĻžāϰāĻž āϝāĻĨāĻžāϝāĻĨāĻāĻžāĻŦā§ āĻĒā§āϰāĻāĻžāĻļ āĻāϰāĻž āϝāĻžā§āĨ¤
āĻ ā§āϝāĻžāϰā§āϏāĻŽā§āĻš Dim āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāĻž āĻšā§āĨ¤ āĻāύāĻĄā§āĻā§āϏ āĻĒāϰāĻŋāϏāϰ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻžāϰ āĻāύā§āϝ āĻĻā§āĻāĻāĻŋ āĻĒā§āϰāĻā§āϰāĻŋā§āĻž āϰā§ā§āĻā§:
DIM text(20) as String REM 21 0 āĻĨā§āĻā§ 20 āĻĒāϰā§ā§āύā§āϤ āĻā§āϰāĻŽā§āϰ āĻāĻĒāĻžāĻĻāĻžāύ
DIM text(5 to 25) as String REM 21 5 āĻĨā§āĻā§ 25 āĻĒāϰā§āϝāύā§āϤ āĻā§āϰāĻŽā§āϰ āĻāĻĒāĻžāĻĻāĻžāύ
DIM text(-15 to 5) as String REM 21 elements (including 0)
REM numbered from -15 to 5
āĻĻā§āĻŦāĻŋāĻŽāĻžāϤā§āϰāĻŋāĻ āĻĄāĻžāĻāĻž āĻā§āώā§āϤā§āϰ
DIM text(20,2) as String REM 63 elements; form 0 to 20 level 1, from 0 to 20 level 2 and from 0 to 20 level 3.
āĻāĻĒāύāĻŋ āĻĄāĻžāĻāύāĻžāĻŽāĻŋāĻ āĻšāĻŋāϏā§āĻŦā§ āĻāĻāĻāĻŋ āĻ ā§āϝāĻžāϰā§āϰ āϧāϰāύ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ, āϝāĻĻāĻŋ āĻ ā§āϝāĻžāϰ⧠āϧāĻžāϰāĻŖāĻāĻžāϰ⧠āĻāĻāĻāĻŋ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύ⧠āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻŽāĻžāϤā§āϰāĻžāϰ āĻĒāϰāĻŋāĻŽāĻžāĻŖ 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 as String = " Dimension:"
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