ReDim Statement
āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻ ā§āϝāĻžāϰ⧠āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]
āĻāĻā§āĻāĻŋāĻ āĻšāĻŋāϏā§āĻŦā§, āĻĒā§āύāϰāĻžā§ āĻŽāĻžāϤā§āϰāĻžāϝā§āĻā§āϤ āĻāϰāĻž āĻšā§ā§āĻā§ āĻāĻŽāύ āĻ ā§āϝāĻžāϰā§āϰ āĻŦāĻŋāώā§āĻŦāϏā§āϤ⧠āϏāĻāϰāĻā§āώāĻŖ āĻāϰāĻžāϰ āĻāύā§āϝ āĻāĻāĻāĻŋ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ āĻšāĻŋāϏā§āĻŦā§ āϏāĻāϰāĻā§āώāĻŖ āĻā§āĻā§āĻžāϰā§āĻĄāĻāĻŋ āϝā§āĻ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύāĨ¤
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
VarName: āϝ⧠āĻā§āύ āĻāϞāĻ āĻ āĻĨāĻŦāĻž āĻ ā§āϝāĻžāϰ⧠āύāĻžāĻŽāĨ¤
āĻļā§āϰā§, āϏāĻŽāĻžāĻĒā§āϤ: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻŽāĻžāύ āĻ āĻĨāĻŦāĻž āϧā§āϰā§āĻŦāĻ āϝāĻž āĻāϞāĻŋāĻŽā§āύā§āĻā§āϰ āĻĒāϰāĻŋāĻŽāĻžāĻŖ (NumberElements=(end-start)+1) āĻāĻŦāĻ āĻāύāĻĄā§āĻā§āϏā§āϰ āĻĒāϰāĻŋāϏāϰ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
ReDim āĻĒā§āϰāϏāĻŋāĻāĻžāϰ āϏā§āϤāϰ⧠āĻŦā§āϝāĻŦāĻšā§āϤ āĻšāϞ⧠Start āĻāĻŦāĻ End āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āĻšāϤ⧠āĻĒāĻžāϰā§āĨ¤
VarType: āĻā§āĻā§āĻžāϰā§āĻĄ āϝāĻž āĻāĻāĻāĻŋ āĻāϞāĻā§āϰ āĻĄāĻžāĻāĻžāϰāϧāϰāύ āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰā§āĨ¤
āĻā§āĻāϝāĻŧāĻžāϰā§āĻĄ: āĻāϞāĻ āϧāϰāύ
Bool: āĻŦā§āϞāĻŋāϝāĻŧāĻžāύ āĻāϞāĻ (True, False)
āϤāĻžāϰāĻŋāĻ: āϤāĻžāϰāĻŋāĻ āĻāϞāĻ
āĻĄāĻžāĻŦāϞ: āĻĄāĻžāĻŦāϞ āĻĻāĻļāĻŽāĻŋāĻ āĻŦāĻŋāύā§āĻĻā§ āĻāϞāĻ (1.79769313486232x10E308 - 4.94065645841247x10E-324)
āĻāύāĻāĻŋāĻāĻžāϰ: āĻāύāĻāĻŋāĻāĻžāϰ āĻāϞāĻ (-32768 - 32767)
āϞāĻ: āĻĻā§āϰā§āĻ āĻāύāĻāĻŋāĻāĻžāϰ āĻāϞāĻ (-2,147,483,648 - 2,147,483,647)
āĻ āĻŦāĻā§āĻā§āĻ: āĻ āĻŦāĻā§āĻā§āĻ āĻā§āϰāĻŋā§ā§āĻŦāϞ (āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āϏā§āĻ āĻĻā§āĻŦāĻžāϰāĻž āϧāĻžāϰāĻžāĻŦāĻžāĻšāĻŋāĻāĻāĻžāĻŦā§ āύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻšāϤ⧠āĻĒāĻžāϰā§!)
[Single]: Single floating-point variable (3.402823x10E38 - 1.401298x10E-45)āĨ¤ āϝāĻĻāĻŋ āĻā§āύ āĻā§āĻā§āĻžāϰā§āĻĄ āĻāϞā§āϞā§āĻ āĻāϰāĻž āύāĻž āĻšā§,āϤāĻžāĻšāϞ⧠āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻāĻāĻ āĻšāĻŋāϏā§āĻŦā§ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻž āĻšā§, āϝāĻĻāĻŋ āύāĻž DefBool āĻĨā§āĻā§ DefVar āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϝāĻŦāĻšā§āϤ āĻšā§āĨ¤
āώā§āĻā§āϰāĻŋāĻ: āώā§āĻā§āϰāĻŋāĻ āĻāϞāĻ āϏāϰā§āĻŦā§āĻŦā§āĻ ā§Ŧā§Ē,ā§Ļā§Ļā§Ļ ASCII āĻ āĻā§āώāϰ āϧāĻžāϰāĻŖ āĻāϰā§āĨ¤
āĻā§āϰāĻŋā§ā§āύā§āĻ: āĻā§āϰāĻŋā§ā§āύā§āĻ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻāĻžāĻāĻĒ (āϏāĻāϞ āĻāĻžāĻāĻĒ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĨāĻžāĻāϤ⧠āĻĒāĻžāϰ⧠āĻāĻŦāĻ āĻŦāϰā§āĻŖāύāĻž āĻ āύā§āϏāĻžāϰ⧠āύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻšā§)āĨ¤
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 (0 inclusive),
rem numbered from -15 to 5
āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻā§āώā§āϤā§āϰ, āϧāϰāύ āĻŦā§āϝāϤā§āϤ, āĻĄāĻžāĻāύāĻžāĻŽāĻŋāĻ āĻāϰāĻž āϝāĻžāĻŦā§ āϝāĻĻāĻŋ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻļāύā§āϰ āĻĒā§āϰāϏāĻŋāĻāĻžāϰ āϏā§āϤāϰ⧠RemDim āĻĻā§āĻŦāĻžāϰāĻž āĻŽāĻžāϤā§āϰāĻžāϝā§āĻā§āϤ āĻāϰāĻž āĻšā§āĨ¤ āϏāĻžāϧāĻžāϰāĻŖāĻāĻžāĻŦā§, āĻāĻĒāύāĻŋ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āĻāĻāĻŦāĻžāϰ āĻ ā§āϝāĻžāϰā§āϰ āĻĒāϰāĻŋāϏāϰ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ āĻāĻŦāĻ āϤāĻž āĻĒāϰāĻŋāĻŦāϰā§āϤāύ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ āύāĻžāĨ¤ āĻāĻāĻāĻŋ āĻĒā§āϰāϏāĻŋāĻāĻžāϰā§āϰ āĻŽāϧā§āϝā§, āĻā§āώā§āϤā§āϰā§āϰ āĻāĻāĻžāϰā§āϰ āĻĒāϰāĻŋāϏāϰ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻžāϰ āĻāύā§āϝ āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύā§āϰ āϏāĻžāĻĨā§ ReDim āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āĻāĻāĻāĻŋ āĻ ā§āϝāĻžāϰ⧠āĻĄāĻŋāĻā§āϞā§ā§āĻžāϰ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύāĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleRedim
Dim iVar() As Integer, iCount As Integer
ReDim iVar(5) As Integer
For iCount = 1 To 5
iVar(iCount) = iCount
Next iCount
ReDim iVar(10) As Integer
For iCount = 1 To 10
iVar(iCount) = iCount
Next iCount
End Sub