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
vbs中get和set方法
最新推荐文章于 2018-03-07 01:28:16 发布