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 qizhenhao As student
qizhenhao.name = "郑明雨"
qizhenhao.stuNo = "1505034****"
qizhenhao.sex = True
qizhenhao.age = 20
qizhenhao.prof = "电气"
qizhenhao.grade = 410
Print qizhenhao.name; qizhenhao.stuNo; qizhenhao.sex; qizhenhao.age; qizhenhao.prof; qizhenhao.grade
Open "D:\MyInformation.txt" For Output As #1
Print #1, qizhenhao.name; qizhenhao.stuNo; qizhenhao.sex; qizhenhao.age; qizhenhao.prof; qizhenhao.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 qizhenhao As student
qizhenhao.name = "郑明雨"
qizhenhao.stuNo = "1505034****"
qizhenhao.sex = True
qizhenhao.age = 20
qizhenhao.prof = "电气"
qizhenhao.grade = 410
Print qizhenhao.name; qizhenhao.stuNo; qizhenhao.sex; qizhenhao.age; qizhenhao.prof; qizhenhao.grade
Open "D:\MyInformation.txt" For Output As #1
Print #1, qizhenhao.name; qizhenhao.stuNo; qizhenhao.sex; qizhenhao.age; qizhenhao.prof; qizhenhao.grade;
Close #1
End Sub