Private Sub Command1_Click
Type student
Name As String
Sex As boolaen
Age As Byte
Prof As String
grade As string
End Type
Dim jianruolin As student
Jianruolin.name=”菅若琳”
Jianruolin.stuno=”15050441019”
Jianruolin.age=19
Jianruolin.sex=female
Jianruolin.prof=”看书”
Jianruolin.grade=100
End sub