[ QTP ] 使用类来解决函数化时"可选参数"问题

在做函数化时，同时会对一些值进行参数化，以备后面调用。如Function AddNew(NewName,NewAge)这样。
记得曾经在51上看到有讨论函数是否可以有可选参数的问题，结果好像是不能设置可选参数。
在项目中也遇到过需要可选参数的情况。

今天刚刚读了songfang大虾的《在QTP中如何使用Class（类）》，忽然想到可以用类来解决这个问题嘛，于是立马写了出来试试
比如要建立一个Customer用户，他的许多创建时的参数的不同值会对后面有不同的影响，所以要对众参数中的某一个做一些修改
于是有了以下测试代码
Class AddNew
        Dim para1,para2,para3

        Sub Class_Initialize
                para1 = 1
                para2 = 2
                para3 = 3       
        End Sub

        Sub setPara1(byval para)
                para1 = para
        End Sub

        Sub setPara2(byval para)
                para2 = para
        End Sub

        Sub DoAdd()
                msgbox "para1=[" & para1 & "] para2=[" & para2 & "] para3=[" & para3 & "]"
        End Sub
       
End Class

Set Customer = new AddNew
Customer.DoAdd()
Customer.setPara1(111)
Customer.DoAdd()
Customer.setPara2(222)
Customer.DoAdd()
Set Customer = nothing

这样就应该可以解决这个问题了吧
刚刚想到这里，难免有些稚嫩，希望大虾们指点