Question

VB编程 用矩形法求定积分

求1/(1+X^2)dx 在（-4，4）上的定积分
用如何VB编程

Answer 1

建Command1,代码如下。其中0.00001表示小矩形宽度。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Command1_Click()
Dim x As Double, y As Double, s As Double
For x = -4 To 4 Step 0.00001
y = 1 / (1 + x * x)
s = s + y * 0.00001
Next
Print "定积分为："; s
End Sub