VBA ベクトルの和(関数)
Function ab(arr1() As Double, arr2() As Double) As Double()
Dim kadai_6() As Double
ReDim kadai_6(UBound(arr1))
Dim i As Integer
For i = 1 To UBound(arr1)
kadai_6(i) = arr1(i) + arr2(i)
Next i
ab = kadai_6
End Function
Function ab(arr1() As Double, arr2() As Double) As Double()
Dim kadai_6() As Double
ReDim kadai_6(UBound(arr1))
Dim i As Integer
For i = 1 To UBound(arr1)
kadai_6(i) = arr1(i) + arr2(i)
Next i
ab = kadai_6
End Function