vbs中get跟set方法

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