要考证了，所以花点时间学学6.0,再做个系统出来就行了：）
Private mvarName as String
Public Property Get Name() as String
Name=mvarName
End Property
Public Property Let Name(ByVal vData as String)
mvarName=vData
End Property
那么，在类内部调用方法时，就不能用属性：
错误：
MsgBox "我的名字是" & Name
正确：
MsgBox "我的名字是" & mvarName
1.类的属性是给外部使用的，不能在类类部调用该属性。
比如：
Private mvarName as StringPublic Property Get Name() as String Name=mvarNameEnd PropertyPublic Property Let Name(ByVal vData as String) mvarName=vDataEnd Property那么，在类内部调用方法时，就不能用属性：
错误：MsgBox "我的名字是" & Name正确：MsgBox "我的名字是" & mvarName