nilgregaussmainmodule.bas

来自「工程数值分析中的一些常用工具,相信对大家很有用的」· BAS 代码 · 共 17 行

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