Untitled

��ü�� ڷᱸ��̴�.
�ֳĸ� ��ڰ� �ڽ�� ϴ� �� ڷ�� â�� ֱ� ��̴�.
�׷�� ڷ�� ⺻�� ϴ� ��ڷ�� ̴� ��ϱ�?
Integer, String �� ڷ�� Ϸ�� ̸� ��ǵǾ� �ִ� �ڷ��̴�. �� Integer �ڷ�� String�� ٴ� ��̴�. (�� ȯ�� ִ�.) �� ڷ�� ڷ��̴�.
�� Ѱ�� ⺻�ڷ�� ִ� �迭�� Ѱ踦 �� ֱ⵵ �ϴ�. �� ��.
Private Sub Command1_Click()
  Dim TTT as MyType
  TTT.Name = "ȫ�浿"
  TTT.YearOld = "19"
  TTT.BirthDay = "1975/3/22"
End Sub
�� ҽ��ڵ�� Command1 Ŀ�ǵ� ��ư�� Ŭ��ϸ�, �� MyType�� TTT�� "�̸�", "��", "��"�� ϴ� �� Ѵ�.
�� ̰�� ׳� ��(F5)�Ѵٸ� �翬�� ߻��Ѵ�. �ֳĸ� ��Ϸ�� MyType�̶�� ڷ�� ν�� ϱ� ��̴�. �� ־�� ϴ� �� ִ�. �װ�� ٷ� �ڵ�� ߰��ؼ� �� ⿡�� ̸� ��ü�� ־�� ϴ� ��̴�.
�� ڵ�� (.bas)�� ߰��Ų �� Է��Ѵ�.
Type MyType
Name as String
YearOld as Intege

r
BirthDay as Date
End Type

�̷�� MyType�̶�� ü�� ־� �� Ÿ�� ڷ�� ν�� ִ�. Name as String ��ó�� ü �� ⺻ �ڷ�� Dim �̶�� ʴ´�. �׸�� ü�� ݵ�� ڵ��⿡�� Ͽ� �� ִ�.
�� 迭�� ü�� ϴ� ��찡 �ִ�. ��ü �迭�� װ��̴�. �� Ǳ��迡�� ̴�. �ٸ� �̷�� ֱ�� ȴ�.
Dim TTT(1 to 5) as MyType ó�� Ͽ� MyType�� 迭�� ְڴ�.

�迭�� ü�� 

�迭�� ַ� For�� Ƚ�� µ� ��̴� ��찡 ��. For �� ϳ�� μ� �� Ƚ�� ְ�, �迭�� ε�� ִ�. ��ü�� ڵ� �� ϴµ� ��ϴ�. �̹� �츮�� '�ʱ�' �� 㵵�� ڵ�� �Ҵ�.
�� ϳ� ����.
'�ּҷ�'�� ϳ� �ۼ��Ѵٰ� ��.
�ּҷ�� ϳ�� Ŀ�ٶ� ��, ��ڵ�� ϳ�� ̴�. �� ִ�. '�̸�', '��', '��', '�ּ�' '��',...... ��... �ָ��ؾ� �� ̷�� ʵ�� ̶�� Ϳ� �ִ�. ��, ��ڿ�, �� پ��ϰ� ��̸� �̰�� ó�� ü�μ� �� ̴�
�׷� ��ü�� غ��. �ڵ��⿡ �� ڵ�� Ѵ�.
Type AddressBook
    Name as String
    YearOld as Integer
    Sex as Integer
    Address as String
End Type
�� AddressBook �̶�� Ÿ Ÿ�� ּҸ� �� ̴�. Dim Person(3) as AddressBook ó�� ϸ� �� 4 �� ְ� �Ǹ�, �̷�� ü �迭�� ִ�.

�׷� �ǽ��  ��

��ü�� ϱ� ��ؼ�� ̶�� Ʈ�� ߰��Ѵ�.

�׸�� ϴ� ��̴�.

�Ʒ�� غ��?

�Ʒ�� person �̶�� ̸�� ̸� �Է��ϴ� ��ü�̴�.

Type person
name As String
number As Integer
End Type

Global pdata(2) As person ' pdata�� Ÿ�Կ� �� �ƱԸ�Ʈ��(3��)�п� �� Դϴ�.(�ʱ�迭�� 0�̹Ƿ�)

' ��Ÿ�� person�� ִ� �� ?

' Global�� Ǵ� ��?

�׷� �� Ŭ�� �̺�Ʈ ��ν���� ؼ� �ڵ带 ¥��?

Private Sub Form_Click()
For i = 0 To 1 '0-1 ��, 2�� ݺ��Ǵ� ��Դϴ�.
tem = InputBox("�̸��")
pdata(i).name = tem 'pdata(i).name�� inputbox�� ġȯ�Ǵ� ��Դϴ�.
tem = InputBox("��̴�")
pdata(i).number = tem
Next i

' �Ʒ�� ڵ��Դϴ�.

For i = 0 To 1
Print "�̸��"; pdata(i).name
Print "��̴�"; pdata(i).number
Next i

End Sub

��  2

��TOP

* ��ü�� Ἥ �� α׷�� ۼ��Ͻÿ�.

�Է�� ̸� �г� �� Է��ϰ�

�� ̸�, �г�, ��, ��, ��, ��, ��, ��,�� α׷�� ۼ��մϴ�

�� ο�� 5�� ϼ��.