ReDim Statement
αααααΆαβα’ααα α¬βα’αΆααβαα½αΒ α
ααΆαααβααααααα α
[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]
αααβααααα ββββα α·ααα α’αααβα’αΆα βααααααβααΆαααβαααααΉα βααΆαβααΆαβ ααΆβαααΆαααΆααααααβααΎααααΈβββααΆαβααΆαββααΆαα·ααΆβααβα’αΆααβαααβααααΌαβααΆαβαααααβαα·ααΆαααβα‘αΎαβαα·αΒ α
αααΆαααΆαααααα α
VarName α α’ααα α¬βαααααβα’αΆααβααΆβαα½αΒ α
α αΆααβααααΎαβ, αααα ααβΒ α αααααβααα α¬βααα αααβαααααβα ααα½αβααΆαα» (NumberElements=(end-start)+1) αα·αβαα½αβαααααααααΒ α
Start αα·α End α’αΆα βααΆβααααααβααα ααααα·αβααΎ ReDim ααααΌαβααΆαβααααΎβαα βααααα·αβαααααΒ α
VarType α ααΆαααβαααααΉαβαααβαααααΆαβααααααβαα·ααααααβααβα’αααβαα½αΒ α
Keyword α ααααααβα’ααα
Bool α α’αααβαααΌααΈα (αα·α αα·αβαα·α)
Date α α’αααβααΆαβααα·α αααα
DoubleΒ α α’αααβααααΆαβαααα (1.79769313486232x10E308 - 4.94065645841247x10E-324)
Integer α α’αααβα ααα½αβααα (-32768 - 32767)
Long α α’αααβα ααα½αβαααβαα (-2,147,483,648 - 2,147,483,647)
Object α α’αααβααααα» (α’αΆα βααααΌαβααΆαβαααααβααΆβααααβαααααΆααβααα Set!)
[Single]: α’αααβααααΆαβαααα½α (3.402823x10E38 - 1.401298x10E-45)Β α ααΎβαα·αβααΆαβαααααΆααβααΆαααβαααααΉα α’αααβααααΌαβααΆαβαααααβααΆ Single ααΆααααβααα ααααΈαααααααΆαααβααΈ DefBool ααα DefVar ααααΌαβααΆαβααααΎΒ α
String α α’αααβααααβα’ααααβαααβααΆαβαα½βα’αααα ASCII α’αα·βααααΆ 64,000Β α
Variant α ααααααβα’αααβαααΆααααα (α’αΆα βααΆαβααααααβααΆααα’αα αα·αβααααΌαβααΆαβαααααβαααβααΆαβαααααβ)Β α
αααα»α LibreOffice Basic α’αααβαα·αα αΆαααΆα αββαααααΆαβα’αααβααΆααααΆααβααΒ α αααβαααΆαβααΆ α’αααβααααΌαββαααααΆαβα’αΆααβαα½α αα»αβαααβα’αααβα’αΆα βααααΎβαα½αβααΆΒ α α’αααβα’αΆα βαααααΆαβα’αααβαα½αβααΆαα½αβααα ααααΈβαααααβααΆααα Dim αααβααααΎβαααααΆβαααααβααΎααααΈβαααααβααΆαβαααααΆαβα αααΎαΒ α ααΎααααΈββαααααΆαβααααααβα’αααβαα½α αααα αΌαββαα½βα’ααααββααααααββααΆαββαααααΆα ααααββαααββααααα α¬βααααΎβααΆαααβαααααΉαβαααβααααΌαβααααΆΒ α
LibreOffice Basic ααΆααααβα’αΆααβαα½α α¬βα αααΎαβαα·ααΆαααβαααβααααΌαβααΆαβαααααβαααβααααααβα’αααβαααβααΆαβαααααΆααβΒ α α’αΆααβααΊβαααααα ααΎβαααααα·ααΈβααΆαβαααααΈ α¬βααΆααΆαβαααβα’αααβα ααβααααααα½αΒ α αα»αβαααααααα·βααβα’αΆααβααΊβααΆβα’αΆα βαααααβα’αΆααααααΆαβααΆαα»βααΈαα½αβα α’αΆαααααβαα βααΆαβααααααααα αααβα’αΆα βααααΌαβααΆαβααααΆβααΆβαααααα α¬βα’αααβαααΒ α
ααΆαβαα·ααΈβααΈαβααΎααααΈβαααααβαα½αβααβααααααααα αααααΆααβα’αΆααβαααβααΆαβαααααΆαβααΆαα½αβααα ααααΈβαααααβααΆααα Dim α
DIM text(20) As String REM 21 elements numbered from 0 to 20
DIM text(5 to 25) As String REM 21 elements numbered from 5 to 25
DIM text$(-15 to 5) As String REM 21 elements (0 inclusive),
rem numbered from -15 to 5
αααβαα·αβαα·αβααΈβαααααα ααΆαββα’αααβα’αΆα βααααΌαβααΆαβαααααΎαβαααβααΆααααα ααΎβαα½αβααΆβααααΌαβααΆαβαααααβαα·ααΆαααβααα ReDim αα βααααα·αβαααααβαααα»αβααααααβααΆαβαα α¬βα’αα»ααααΒ α ααΆβααααααΆ α’αααβα’αΆα βαααααβαα½αβα’αΆααβααβααααβααα»ααααα α αΎαβα’αααβαα·αβα’αΆα βααααααβααΆβααΒ α αα βαααα»αβααααα α’αααβα’αΆα βαααααΆαβα’αΆααβαα½αβαααβααααΎβααα ααααΈβαααααβααΆααα 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