在主教材第9章中介绍了用梯形法求定积分的方法（例9.10)，请编写矩形法求定积分的程序。矩形法与梯形法的区别是：梯形法以一个小梯形（曲顶矩形）的面积近似代替小区间内曲顶梯形的实际面积，而矩形法则是以一个矩形来代替。例如，sinx曲线在(a,b)区间里可分为n个区间，第一个区间的宽为h=(b-a)/n，高为sin(a)。
编写用矩形法求定积分：

的程序，用a=0,b=1,n=10、100、1000、10000进行试验。

解：用矩形法求定积分的Function过程如下：
Function integ(a As Integer, b As Integer, n As Integer) As Single
    x = a
    h = (b - a) / n
    f0 = Cos(x)
    s = 0
    For i = 1 To n
        si = f0 * h
        s = s + si
        x = x + h
        f0 = Cos(x)
    Next i
    integ = s
End Function

编写窗体点击事件来调用积分过程：

Private Sub form_click()
    Dim n As Integer
    n = InputBox("", "请输入矩形区间数", 10)
    i = integ(0, 1, n)
    Print "当矩形区间"; n; "时，积分值为："; ""; i
End Sub

运行程序，点击窗体，输入10，100等数据，结果如下图所示。

VB 程序设计教程 第四版 答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_9.10.html