my information

Private Type student
name As String * 2
xuehao As String * 11
sex As Boolean
zhuanye As String * 2
school As String * 4
xueyuan As String * 2

End Type


Private Sub Command1_Click()
Dim z As student
z.name = "张凯"
z.xuehao = "15050341041"
z.sex = "true"
z.zhuanye = "电气"
z.school = "廊坊师范"
z.xueyuan = "物电"
Print z.name; z.school; z.sex; z.xuehao; z.xueyuan; z.zhuanye

Open "d:\11\myinformation.txt" For Output As #1
Print #1, "visual basic6.0", 666.88, Date, True

Print #1, z.name; z.school; z.sex; z.xuehao; z.xueyuan; z.zhuanye


Close #1
End Sub