nilgdgaussmainmodule.bas

科学与工程数值计算算法（Visual Basic版）一书的源代码。对科学研究者自己开发领域内计算程序极具参考价值。

Attribute VB_Name = "MainModule"
Sub Main()
    Dim a As Double, b As Double, eps As Double, v As Double
    
    a = 2.5
    b = 8.4
    eps = 0.000001
    
    ' 计算积分
    v = NILgdGauss(a, b, eps)
            
    MsgBox "积分值 ＝ " & v
    
End Sub

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