VB编程:在主教材第9章中介绍了用梯形法求定积分的方法(例9.10),请编写矩形法求定积分的程序。

2016-07-25 09:59:19  分类: VB程序设计教程第4版答案刘炳文  参与:

在主教材第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

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接