QTP设计模式-命令包装模式

Class oCommand
 'input
 Private VarIntNum

 Public property Get Number
    Number=VarIntNum
 End Property

 Public property Let Number(ByVal oNum)
  VarIntNum=oNum
 End Property

 'output
 Private VarResult

 Public property Get Result
    Result=VarResult
 End Property

 Public property Let Result(ByVal oResult)
  VarResult=oResult
 End Property

 'default Function
 Public Default Function Exec()
    Me.Result=Number*Number
 End Function

End Class

Function Constructor(ByVal newNumber)
   Set Constructor = New oCommand
 Constructor.Number= newNumber
End Function

Set con1=Constructor(3)

Call con1

print con1.Result