利用極限原來,累加起來即可。
矩形法?
分成100個矩形累加計算
Private?Sub?Command1_Click()Dim?i?As?Integer,?j?As?Integer
Dim?a?As?Single,?b?As?Single,?s?As?Single
a?=?Val(Text1.Text)
b?=?Val(Text2.Text)
For?i?=?0?To?100
s?=?s?+?(a?+?i?*?(b?-?a)?/?100)?^?2?*?(b?-?a)?/?100
's?=?s?+?(a?+?i?*?(b?-?a)?/?100)?*?(b?-?a)?/?100
Next
Print?s
End?Sub 梯形法
分成100個梯形累加計算,也可以自己設定,不要超過32767,整型變量的範圍,如果不夠,可以把n定義為long.
Private?Sub?Command2_Click()Dim?i?As?Integer
Dim?a?As?Single,?b?As?Single,?n?As?Integer,?s?As?Single
Dim?x?As?Single,?y?As?Single,?h?As?Single
a?=?Val(Text1.Text)
b?=?Val(Text2.Text)
n?=?Val(Text3.Text)
For?i?=?1?To?n
h?=?(b?-?a)?/?n
x?=?(a?+?(i?-?1)?*?(b?-?a)?/?n)?^?2
y?=?(a?+?(i)?*?(b?-?a)?/?n)?^?2
s?=?s?+?(x?+?y)?*?h?/?2
Next
Print?s
End?Sub