Attribute VB_Name = "MainModule"
Sub Main()
    Dim a As Double, b As Double, eps As Double, v As Double
    
    a = 0#
    b = 1#
    eps = 0.000001
    
    ' 計算積分
    v = NISimpson(a, b, eps)
    
        
    MsgBox "積分值 ＝ " & v
    
End Sub

' 計算被積函數(shù)的函數(shù)值
Function Func(x As Double) As Double
    Func = Log(1# + x) / (1# + x * x)
End Function