vbs中get和set方法

Class User
    Private s_name
    Private s_age
    Public Property get name
        name=s_name
    End Property
    Public Property get age
        age=s_age
    End Property
    Public Property Let name (new_name)
        s_name=new_name
    End Property
    Public Property Let age (new_age)
        s_age=new_age
    End Property
    
End Class

Set user1=new User
user1.age = "100" 
user1.name = "拉生" 
MsgBox "姓名：" +user1.name+ " 年龄：" +user1.age