Private Sub Form_Load()
Type student
name As String
stuno As String
sex As Boolean
age As Byte
prof As String
grade As Single
End Type
Dim zhangbowen As stuent
zhangbowen.name "张博文"""
zhangbowen.stuno = "17710456681"
zhangbowen.sex = ture
zhangbowen.age = 19
zhangbowen.prof = "电气"
zhangbowen.grad = 100
End Sub
Type student
name As String
stuno As String
sex As Boolean
age As Byte
prof As String
grade As Single
End Type
Dim zhangbowen As stuent
zhangbowen.name "张博文"""
zhangbowen.stuno = "17710456681"
zhangbowen.sex = ture
zhangbowen.age = 19
zhangbowen.prof = "电气"
zhangbowen.grad = 100
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
