VBA 台形則で関数を積分しよう(関数)
Function T(h As Double, a As Double, b As Double) As Double
Dim inte As Double
Dim i As Integer
Dim n As Double
Dim x_i As Double
n = (b - a) / h
inte = 0
For i = 0 To n - 1
x_i = a + i * h
inte = inte + (f2(x_i) + f2(x_i + h)) * h / 2
Next i
T = inte
End Function
f2はお好みの関数で!!