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