Dim Statement
λ³μλ λ°°μ΄μ μ μΈν©λλ€.
λ³μκ° μΌνλ‘ κ΅¬λΆλ κ²½μ°(μ: DIM sPar1, sPar2, sPar3 AS STRING) Variant λ³μλ§ μ§μ ν μ μμ΅λλ€. κ° λ³μμ λν΄ λ³λμ μ§μ μ€μ μ¬μ©ν©λλ€.
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: μμμ λ³μ λλ λ°°μ΄ μ΄λ¦μ λλ€.
Start, End: μμ μ(NumberElements=(end-start)+1)μ μμΈ λ²μλ₯Ό μ§μ νλ μ«μ κ° λλ μμμ λλ€.
ReDimμ΄ νλ‘μμ μμ€μμ μ μ©λ κ²½μ° Start λ° Endλ μ«μ μμ΄ λ μ μμ΅λλ€.
VarType: λ³μμ λ°μ΄ν° νμμ μ μΈνλ ν€μλμ λλ€.
Keyword: λ³μ μ ν
Bool: Boolean λ³μ(True, False)
Currency: Currency λ³μ(μμμ μ΄ν μλ¦Ώμκ° 4κ°μΈ ν΅ν)
Date: Date λ³μ
Double: Double-precision λΆλ μμμ λ³μ(1,79769313486232Β xΒ 10E308 - 4,94065645841247 x 10E-324)
Integer: Integer λ³μ(-32768 - 32767)
Long: Long integer λ³μ(-2.147.483.648 - 2.147.483.647)
Object: Object λ³μ(μ°Έκ³ : μ΄ λ³μλ μ΄νμ Setμ ν΅ν΄μλ§ μ§μ ν μ μμ΅λλ€.)
Single: Single-precision λΆλ μμμ λ³μ(3,402823 x 10E38 - 1,401298 x 10E-45)
String: μ΅λ 64,000κ°μ ASCII λ¬Έμλ‘ κ΅¬μ±λλ String λ³μ
[Variant]: Variant λ³μ μ ν(λͺ¨λ μ νμ ν¬ν¨νλ©° μ μλ³λ‘ μ§μ λ¨). ν€μλκ° μ§μ λμ§ μμΌλ©΄ DefBoolμμ DefVarκΉμ§μ λ¬Έμ΄ μ¬μ©λμ§ μμ κ²½μ° λ³μλ μλμΌλ‘ 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 (including 0)
REM numbered from -15 to 5
2μ°¨μ λ°μ΄ν° νλ
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 = "Star Office"
End Sub
Sub ExampleDim2
2μ°¨μ λ°μ΄ν° νλ
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