Dim Statement
αααααΆαβα’ααα α¬βα’αΆααβαα½αΒ α
ααααα·αβααΎβα’αααβααααΌαβααΆαβαααααβαααβαααααΆβααααα (α§ααΆα ααα DIM sPar1, sPar2, sPar3 AS STRING) ααΆαβααβα’αααβαααΆαααααβααα»ααααα αααβα’αΆα βααααΌαβααΆαβαααααΒ α ααααΎββααΆαβαααααΆααββααΆα αβααΈβααααΆβαααααΆααβα’αααβααΈαα½αβαΒ α
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) αα·αβαα½αβαααααααααΒ α
Start αα·α End α’αΆα βααΆβααααααβααα ααααα·αβααΎ ReDim ααααΌαβααΆαβα’αα»ααααβαα βααααα·αβαααααΒ α
VarType α ααΆαααβαααααΉαβαααβαααααΆαβααααααβαα·ααααααβααβα’αααβαα½αΒ α
Keyword α ααααααβα’ααα
Bool α α’αααβαααΌααΈα (αα·α αα·αβαα·α)
Currency α α’αααβααΌαα·αααααα (ααΌαα·ααααααβαααβααΆα α€ ααααα)
Date α α’αααβααΆαβααα·α αααα
Double α α’αααβαα·αβαααβααΆαβα ααα½αβααααΆαβαααα (1,79769313486232Β xΒ 10E308 - 4,94065645841247 x 10E-324)
Integer α α’αααβα ααα½αβααα (-32768 - 32767)
Long α α’αααβα ααα½αβαααβαα (-2.147.483.648 - 2.147.483.647)
Object: α’αααβααααα» (α αααΆα α α’αααβαααβα’αΆα βααααΌαβααΆαβαααααβααααβαααααΆααβααβααΆαα½α Set!)
Single α α’αααβαα·αβαααβααΆαβα ααα½αβααααΆαβααβαα½α (3,402823 x 10E38 - 1,401298 x 10E-45).
String α α’αααβααααβα’ααααβαααβααΆαβαα½βα’αααα ASCII α’αα·βααααΆ 64,000Β α
[Variant] α ααααααβα’αααβαααΆααααα (ααΆαβααααααβααΆααα’αα αααβααΆαβαααααΆααβαααβααΆαβαααααβ)Β α ααΎβααΆαααβαααααΉαβαα·αβααααΌαβααΆαβαααααΆααββ α’αααβααααΌαβααΆαβαααααβαααβαααααβαααααααα·βααΆβααααααβαααΆαααααβ αα»αααααΆβααββααα ααααΈβαααααβααΆαααβαααααΆαα DefBool ααα DefVar ααααΌαβααΆαβααααΎΒ α
αααα»α 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 (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