教一下关于Property Let, Property Set, Property Get

[tcmuch]

呵呵，CSDN上面有人说
Property Let --属性付值
Property Set --像那些对象要用它
Property Get --取值

还找了一段代码
----------------------------------
<%
Class Class1

Private mrstRecordSet

Public Property Set RecordSet(Value)
If UCase(TypeName(Value)) = "RECORDSET" Then
Set mrstRecordSet = Value
End If
End Property

Public Function IsClose
IsClose = False
If mrstRecordSet.State = 0 Then
IsClose = True
End If
End Function

End Class

'创建对象
Set cls1 = New Class1

'创建RS
Set rs = Server.CreateObject("ADODB.Recordset")

'cls1的RecordSet属性引用创建的RS
Set cls1.RecordSet = rs

'判断RS是否关闭
Response.Write cls1.IsClose
%>
----------------------------------

但是不懂的是这段class不用Property Set也能写
如下：
----------------------------------
Class cls_one
Private mrstRecordSet
Public Sub a(val)
IF UCase(TypeName(Val)) = "RECORDSET" then
set mrstRecordSet = val
End IF
End Sub
Public Function b()
b = typename(mrstRecordSet)
End Function
End Class

set x = new cls_one
set bc = server.CreateObject("adodb.recordset")
x.a(bc)
Response.Write(x.b)
set bc = nothing
set x = nothing
----------------------------------
这样做我好像根本用不到Property Set。
请个位高手赐教，Property Let, Property Set, Property Get这三个东东的优势在哪里？

[tcmuch]

是不是类里面的Sub、Function 要想变成
a.b = c 这种形式来得到值
就必须要改名换姓变成姓 Property Set 的?

[tcmuch]

还是因为
Private mrstRecordSet
所以就要用Get Let 和Set了？
各位高手请赐教

[是是非非]

从Property取值都是用Get

往Property写入值根据变量类型不同，分别使用 Let和 Set

对于对象类型的，必须使用Set

比如，操作一个Varient类型的数据，为了不出错，在类内部最好使用下面这种结构：

Public Property Get Object
if IsObject(m_Object) Then
Set Object=m_Object
Else
Object=m_Object
End Property

Public Property Let Object
Object=m_Object
End Property
Public Property Set Object
Set Object=m_Object
End Property

[是是非非]

这样，你对这个类的Object属性，不管赋值是一个数字，还是字符串，还是RecordSet之类的对象都不会错了

[tcmuch]

还是因为mrstRecordSet是对象，所以用Get Let 和Set了?-_-#

[tcmuch]

对不起，束小弟才疏学浅，我想问一下
"从Property取值都是用Get"
中的Property是什么东东？

[tcmuch]

Property是不是类内的Private值啊?