VBA ベクトルの定数倍(関数)
Function ab(arr1() As Double, a As Double) As Double()
Dim kadai_8() As Double
ReDim kadai_8(UBound(arr1))
Dim i As Integer
For i = 1 To UBound(arr1)
kadai_8(i) = arr1(i) * a
Next i
ab = kadai_8
End Function
Function ab(arr1() As Double, a As Double) As Double()
Dim kadai_8() As Double
ReDim kadai_8(UBound(arr1))
Dim i As Integer
For i = 1 To UBound(arr1)
kadai_8(i) = arr1(i) * a
Next i
ab = kadai_8
End Function