Option Explicit
'定义一个职员的数据类型
Private Type employee
empname As String
empage As Integer
emp As String
End Type
Dim emp1 As employee
Private Sub Form_Load()
emp1.empname = "刘备"
emp1.empage = "35"
emp1.empaddr = "蜀国"
Print
Print emp1.empname & " " & emp1.empage & " " & emp1.empaddr
End Sub