如何设计一个类的方法

Question

　如：　做一个公司部门信息类：department  有增加部门操作：add()  在以前写函数时，一般会把部门信息作为函数的参数，如：
  add(departNo as string, departName as string) as Boolean  现在做成类方法来实现，部门信息值应该以什么方式传入更恰当？

Answer 1

public function add(byval departNo as string, byval departName as string) as Boolean 

Answer 2

Option ExplicitPrivate m_departNo As String
Private m_departName As StringPublic Function add() As Boolean   add=Flase       if m_departNo="" then exit funtion  '如果departNo为空.不增加
   if m_departName="" then exit funtion  '如果departName为空.不增加     '........  这里是增加代码   add=True '增加成功
End Function'***************************************
'上面的是方法
'****************************************'**************************************
Public Property Get departNo() As String
   departNo = m_departNo
End PropertyPublic Property Let departNo(ByVal vNewValue As String)
  m_departNo = vNewValue
End PropertyPublic Property Get departName() As String
   departName = m_departName
End PropertyPublic Property Let departName(ByVal vNewValue As String)
  m_departName = vNewValue
End Property
'以上是属性
'**************************************