[VB] REDIM 명령문 사용하기

icodebroker VB 2024-06-18

■ REDIM 명령문을 사용하는 방법을 보여준다.

▶ 예제 코드 (VB)


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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

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