本文介绍了一种使用自定义命令类的方式实现输入输出操作的方法。该命令类包括私有变量用于存储整型数值，提供了获取和设置数值的公共属性，并且定义了一个默认函数来计算数值的平方。
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
扫一扫
2142
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
