728x90

Private Sub Command1_Click() ' Command1 클릭시
Dim asd(0 To 2) As Long
' long타입을 가진 asd란 배열을 asd(0),asd(1),asd(2) 배열로 만든다 // 선언 해준다

asd(0) = 123   ' asd(0) 배열을 123으로 초기화 해준다
asd(1) = 456   ' asd(1) 배열을 456으로 초기화 해준다
asd(2) = 789   ' asd(2) 배열을 789으로 초기화 해준다

Text1.Text = asd(0) ' text1.text 값을 asd(0)의 값으로 초기화 해준다. 즉 값은 123
Text2.Text = asd(1) ' text2.text 값을 asd(1)의 값으로 초기화 해준다. 즉 값은 456
Text3.Text = asd(2) ' text3.text 값을 asd(2)의 값으로 초기화 해준다. 즉 값은 789

End Sub

다른 배열 함수를 사용해보자.

Dim asd as Variant 'asd 배열선언

asd = Array( 123, 456, 789 ) ' asd 배열은 123, 456, 789 배열이다. == asd(0 To 2)



 

+ Recent posts