如何使用定义结构?如何对定义好的结构进行使用?请给一个完整的例子给我,谢谢!

Question

要给分啊!
'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-23
'Description:要试用本例请在窗体中填加一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Type typStudent
    FullName As String
    Sex As String
End TypePrivate Sub Command1_Click()
    Dim stuTest As typStudent
    
    stuTest.FullName = "王小二"
    stuTest.Sex = "男"
    
    MsgBox stuTest.FullName, vbAbortRetryIgnore, stuTest.Sex
    
    stuTest.FullName = "张大六"
    stuTest.Sex = "女"
    
    MsgBox stuTest.FullName, vbAbortRetryIgnore, stuTest.Sex
    
End Sub

Answer 1

to foolishtiger(吴文智):
老兄的速度可真快啊。

Answer 2

Option Explicit
Private Type MyLove
    dHeight As Double
    dWeight As Double
    sName As String
    sBoyFriend As String
End TypePrivate Sub Form_Load()
    Me.AutoRedraw = True
    Dim MyMm As MyLove
    MyMm.dHeight = 163.5
    MyMm.dWeight = 47
    MyMm.sName = "LoveLy DangDang"
    MyMm.sBoyFriend = "Me"
    Me.Print MyMm.dHeight
    Me.Print MyMm.dWeight
    Me.Print MyMm.sName
    Me.Print MyMm.sBoyFriend
End Sub