GBKEE

¦^´_ 1# sweetkitty
¥Î°}¦C

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(1 To 3), i As Integer
   
4.     Ar(1) = "AA"
   
5.     Ar(2) = "BB"
   
6.     Ar(3) = "CC"
   
7.     For i = 1 To 3
   
8.         MsgBox Ar(i)
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# sweetkitty

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, k As Integer
   
4.     k = 2
   
5.     ReDim Ar(0 To k)   'ReDim :­«·s«Å§i°}¦C
   
6.     Ar(0) = "AA"
   
7.     Ar(1) = "BB"
   
8.     Ar(2) = "CC"
   
9.     For i = 0 To k
   
10.         MsgBox Ar(i)
    
11.     Next
    
12. End Sub

½Æ»s¥N½X