Private Sub Command1_Click()
Type student
name As String
stuno As String
sex As Boolean
age As Byte
prof As String
grade As String
End Type
Dim gaowenjing As student
gaowenjing.name = "余晓红"
gaowenjing.stuno = "15050441046"
gaowenjing.sex = female
gaowenjing.age = 19
gaowenjing.prof = "教技"
gaowenjing.grade = 750
End Sub
Type student
name As String
stuno As String
sex As Boolean
age As Byte
prof As String
grade As String
End Type
Dim gaowenjing As student
gaowenjing.name = "余晓红"
gaowenjing.stuno = "15050441046"
gaowenjing.sex = female
gaowenjing.age = 19
gaowenjing.prof = "教技"
gaowenjing.grade = 750
End Sub