Private Sub Command1_Click()
Type student
Name As String
stuNo As String
sex As Boolean
age As Byte
prof As String
grade As Single
End Type
Dim li As studen
li.Name = "李书鹏"
li.stuNo = "15050342013"
li.sex = True
li.age = 20
li.prof = "电气"
li.grade = 100
Open "D:\新建文件夹\TEXT.txt" For Output As #1
End Sub
Type student
Name As String
stuNo As String
sex As Boolean
age As Byte
prof As String
grade As Single
End Type
Dim li As studen
li.Name = "李书鹏"
li.stuNo = "15050342013"
li.sex = True
li.age = 20
li.prof = "电气"
li.grade = 100
Open "D:\新建文件夹\TEXT.txt" For Output As #1
End Sub