Class Calculate
Function Add(a,b)
Add = a + b
End Function
Function Multiply(a,b)
Multiply = a * b
End Function
End Class
Set calc = New Calculate
val1 = calc.Add(20,30) 'Return 50
MsgBox "Add = "&val1
val2 = calc.Multiply(5,4) 'Return 20
msgbox "Multiply = "&val2
...
Function Add(a,b)
Add = a + b
End Function
Function Multiply(a,b)
Multiply = a * b
End Function
End Class
Set calc = New Calculate
val1 = calc.Add(20,30) 'Return 50
MsgBox "Add = "&val1
val2 = calc.Multiply(5,4) 'Return 20
msgbox "Multiply = "&val2
...
No comments:
Post a Comment