첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ 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

------------------------------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG ,

댓글을 달아 주세요