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 xuxiaobing As student
xuxiaobing.name = "许晓兵"
xuxiaobing.stuNo = "15050441043"
xuxiaobing.sex = female
xuxiaobing.age = 19
xuxiaobing.prof = "教技"
xuxiaobing.grade = 100
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 xuxiaobing As student
xuxiaobing.name = "许晓兵"
xuxiaobing.stuNo = "15050441043"
xuxiaobing.sex = female
xuxiaobing.age = 19
xuxiaobing.prof = "教技"
xuxiaobing.grade = 100
End Sub