Attribute VB_Name = "MainModule"
Sub Main()
    Dim v As Double
    
    ' 計算積分
    v = NILgreGauss()
            
    MsgBox "積分值 ＝ " & v
    
End Sub

' 計算被積函數的函數值
Function Func(x As Double) As Double
    Func = x * Exp(-x)
End Function