nipartmainmodule.bas

来自「科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全」· BAS 代码 · 共 29 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim a As Double, b As Double
    Dim m As Integer, n As Integer
    Dim s(2) As Double, fa(4) As Double, fb(4) As Double
    
    fa(1) = 0#
    fa(2) = 1#
    fa(3) = 0#
    fa(4) = -3#
    
    fb(1) = 6.2831852
    fb(2) = 1#
    fb(3) = -6.2831852
    fb(4) = -3#
    
    a = 0#
    b = 6.2831852
    m = 30
    n = 4
    
    ' 计算积分
    Call NIPart(a, b, m, n, fa, fb, s)
    
    MsgBox "s(1) = " & s(1) & Chr(13) & "s(2) = " & s(2)
    
End Sub