nipqmainmodule.bas

来自「编程中经常用到的一些算法,算法已模块化,来自于<科学工程与数值算法大全&g」· BAS 代码 · 共 21 行

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

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