使用在类-VBA中创建的函数

我学习如何在课堂上工作。请帮我怎么做这样的事

我在那门课上准备了：

类名“Complex”

在我放置的模块中：

sub asd()
    Dim K As Complex
    Dim Z As Complex
    Dim A As Complex

    Set K = New Complex
    Set Z = New Complex
    Set A = New Complex

    K.Re = 1
    K.Im = 2

    Z.Re = 3
    Z.Im = 4

       A = K.CCAdd(K, Z)
end sub

---

执行函数CCAdd后，我将值传递给“A”时出错。如何解决这个问题？可能函数无法传递非标准类型的数据。

在复杂类中，此行：

Set Add = ZXC

需要：

Set CCAdd = ZXC

然后在模块中，您只需要：

Sub asd()
    Dim K As Complex
    Dim Z As Complex
    Dim A As Complex

    Set K = New Complex
    Set Z = New Complex

    K.Re = 1
    K.Im = 2

    Z.Re = 3
    Z.Im = 4

       Set A = K.CCAdd(K, Z)
End Sub

因此，您不需要使用

Set A=New Complex

，但在将其分配给

CCAdd

函数的结果时，您确实需要使用

Set

Sub asd()
    Dim K As Complex
    Dim Z As Complex
    Dim A As Complex

    Set K = New Complex
    Set Z = New Complex

    K.Re = 1
    K.Im = 2

    Z.Re = 3
    Z.Im = 4

       Set A = K.CCAdd(K, Z)
End Sub