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

Please support us!