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