niatrapzdmainmodule.bas

来自「科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全」· BAS 代码 · 共 23 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim a As Double, b As Double, eps As Double, d As Double, v As Double
    
    a = -1#
    b = 1#
    eps = 0.000001
    d = 0.0001
    
    
    ' 计算积分
    v = NIATrapzd(a, b, eps, d)
            
    MsgBox "积分值 ＝ " & v
    
End Sub

' 计算被积函数的函数值
Function Func(x As Double) As Double
    Func = 1# / (1# + 25# * x * x)
End Function