vb求抛物线弓形面积 的编写

来源：百度知道 编辑：UC知道 时间：2024/05/12 00:39:31
一个开口向下
过原点 的抛物线 与X轴组成的阴影部分 的面积
用vb 写出来
怎么写啊
帮帮忙！！
急~~~~~~~~~
抛物线 是正弦函数 的0—180度区间

用近似值比较很简单的
将0—180度区间分为30000段（就是pi=3.1415926),然后用小矩形求面积，宽为pi/30000，高是sin(x)，最后求和即可。

Private Sub Form_Load()
Dim pi As Single, I As Long, S As Single, S1 As Single
Dim h As Single, b As Single, x As Single
pi = 3.1315926
b = pi / 30000
For I = 1 To 30000
x = I * b '想一想，为什么x=I*b
h = Sin(x)
S1 = b * h
S = S + S1
Next I
Label1.Caption = S
End Sub

必须知道抛物线的方程！

士大夫广泛的