数组的实例化解决思路

数组的实例化
Public   Sub   Iapcir(ByVal   X()   As   Double,   _
        ByVal   Y()   As   Double,   _
        ByVal   n   As   Integer,   _
        ByRef   a()   As   Double,   _
        ByVal   m   As   Integer,   _
        ByRef   rdblAverageX   As   Double,   _
        ByRef   dt()   As   Double)

                Dim   I   As   Integer,   J   As   Integer,   K   As   Integer
                Dim   Z   As   Double,   P   As   Double,   C   As   Double,   G   As   Double,   Q   As   Double,   D1   As   Double,   D2   As   Double
                Dim   S(19)   As   Double,   T(19)   As   Double,   B(19)   As   Double


                For   I   =   0   To   m   -   1

                    a(I)   =   0 '问题,   "其他信息:   未将对象引用设置到对象的实例             "     Next   I

                If   m   >   n   Then   m   =   n
                If   m   >   20   Then   m   =   20

                Z   =   0.0#

                For   I   =   0   To   n   -   1
                        rdblAverageX   =   rdblAverageX   +   X(I)
                        Z   =   Z   +   X(I)   /   (1.0#   *   n)
                Next   I
                rdblAverageX   =   rdblAverageX   /   n

                B(0)   =   1.0
                D1   =   1.0   *   n
                P   =   0.0
                C   =   0.0

                For   I   =   0   To   n   -   1
                        P   =   P   +   (X(I)   -   Z)
                        C   =   C   +   Y(I)
                Next   I

                C   =   C   /   D1
                P   =   P   /   D1
                a(0)   =   C   *   B(0)