vb25

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 = "15050441012"

gaowenjing.sex = female

gaowenjing.age = 19

gaowenjing.prof = "教技"

gaowenjing.grade = 750

End Sub