VBA 行列とベクトルの積(関数)
Function Ax(Arr() As Double, arr1() As Double) As Double()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer
Dim kadai_10() As Double
n = UBound(arr1)
m = UBound(Arr, 1)
ReDim kadai_10(m)
For i = 1 To m
For j = 1 To n
kadai_10(i) = kadai_10(i) + Arr(i, j) * arr1(j)
Next j
Next i
Ax = kadai_10
End Function