主程序和类模块里的函数赋值请教，谢谢！！！

Question

请教高手，在类模块里有：Public Function EMA(CLOSEE As Long, DAT As Long, LODSJ As Long) As Single
EMA = (2 * CLOSEE + (DAT - 1) * LODSJ) / (DAT + 1)
End Function1：求教用 CallByName 从主程序里给CLOSEE，DAT,LODSJ 赋值2：再用CallByName得到EMA的值谢谢！！！

Answer 1

result = CallByName(obj, "EMA", VbMethod, 1, 2, 3)

Answer 2

dim s! ,a&,b&,c&
a=1:b=2:c=3
s = CallByName(class1, "EMA", VbMethod, a, b, c)
debug.print s

Answer 3

Private Sub Form_Load()
Dim a As Class1
Dim b
Set a = New Class1
MsgBox CallByName(a, "EMA", VbMethod, 2, 8, 4)
End Sub