vb
来源：互联网 发布：炉石盒子 mac 编辑：程序博客网 时间：2024/06/12 18:45
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
0 0
