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
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
扫一扫
1438
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
