[VB] REDIM 명령문 사용하기

Private m_strNameArray() As String

Private Sub CommandButton1_Click()
    
    Print "배열 원소 : 6개"
    
    ReDim m_strNameArray(5)
    
    For I = 0 To 5
    
        m_strNameArray(I) = "원소" & I
    
        Print m_strNameArray(I)
    
    Next I

End Sub

Private Sub CommandButton2_Click()

    Print "배열 원소 : 4개"
    
    ReDim m_strNameArray(3)
    
    For I = 0 To 3
    
        m_strNameArray(I) = "원소" & I
    
        Print m_strNameArray(I)
    
    Next I

End Sub