VBA 中点則で関数を積分しよう(関数)
Function M(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 = 1 To n
x_i = a + (2 * i - 1) / 2 * h
inte = inte + f2(x_i) * h
Next i
M = inte
End Function
f2はお好みの関数で!!