学生信息

Private Type students
name As String
stuno As Double
sex As String
grade As Integer
age As Integer
pro As String
End Type

Private Sub Command2_Click()

Dim i As students
i.name = "lvjianxun"
i.age = 20
i.stuno = 12345678
i.sex = "男"
i.grade = "10000"
i.pro = "电气工程及其自动化"
Open "d:\1\my information.txt" For Output As #1
Print #1, "visual basic6.0", 666.88, Date, ture
Print #1, " name="; i.name; "    "; "age="; i.age; "    "; "grade="; i.grade; "     "; "pro="; i.pro; "       "; "sex="; i.sex; "    "; "stuno="; i.stuno; ""
Close #1
End Sub