Private Type student
name As String * 3
stuNo As String * 11
sex As Boolean
age As Byte
prof As String * 2
grade As Single
End Type
Private Sub Command1_Click()
Dim qiehuimin As student
yuanzhijie.age = 19
yuanzhijie.prof = "电气"
yuanzhijie.grade = 510
Print yuanzhijie.name; yuanzhijie.stuNo; yuanzhijien.sex; yuanzhijie.age; yuanzhijie.prof; yuanzhijie.grade
Open "D:\MyInformation.txt" For Output As #1
Print #1, yuanzhije.name; yuanzhijie.stuNo; yuanzhijei.sex; yuanzhijie.age; yuanzhije.prof; yuanzhijie.grade;
Close #1
End Sub
name As String * 3
stuNo As String * 11
sex As Boolean
age As Byte
prof As String * 2
grade As Single
End Type
Private Sub Command1_Click()
Dim qiehuimin As student
yuanzhijie.name = "袁志姐
yuanzhijie.stuNo = "1505034****"
yuanzhijie.sex = Trueyuanzhijie.age = 19
yuanzhijie.prof = "电气"
yuanzhijie.grade = 510
Print yuanzhijie.name; yuanzhijie.stuNo; yuanzhijien.sex; yuanzhijie.age; yuanzhijie.prof; yuanzhijie.grade
Open "D:\MyInformation.txt" For Output As #1
Print #1, yuanzhije.name; yuanzhijie.stuNo; yuanzhijei.sex; yuanzhijie.age; yuanzhije.prof; yuanzhijie.grade;
Close #1
End Sub