[求助] 定义哪种数据类型能够接收矩阵相乘后的数据

殺手殺人

请问定义哪种数据类型能够接收矩阵相乘后的数据代码如下：


Option Explicit
Option Base 1

Sub SolveEquations()
Dim i, j As Integer
Dim arra(3, 3), arrb(3, 1) As Double
Dim arrx  '未定义数据类型，应该定义哪种类型才能正确接收矩阵相乘之后得到的数据
For i = 1 To UBound(arra, 1)
    arrb(i, 1) = Cells(i + 1, 4)
    For j = 1 To UBound(arra, 2)
        arra(i, j) = Cells(i + 1, j)
    Next j
Next i

With WorksheetFunction
   arrx = .MMult(.MInverse(arra), arrb)  '接收矩阵相乘之后得到的数据
End With

For i = 1 To 3
    Cells(8, i) = arrx(i, 1)
Next i
End Sub




Solve.zip (9.93 KB, 下载次数: 3)

2013-4-18 14:49 上传

点击文件名下载附件