d4r31.txt

Visual Basic 常用数学算法集书中收录了所有代码

Private Sub Command1_Click()
    'PROGRAM D4R31
    'Driver for routine BS
    Open "D:\VB常用数值算法集\DATA\FNCVAL.DAT" For Input As #1
    Do
      Line Input #1, Text$
    Loop While Text$ <> "Exponential Integral Bs"
    Line Input #1, NVAL$
    NVAL = Val(NVAL$)
    Print Text$
    Print
    Print "   N      B         Actual          BS(N,B)"
    For I = 1 To NVAL
        Line Input #1, DUM$
        N = Val(Mid(DUM$, 1, 7))
        B = Val(Mid(DUM$, 8, 8))
        ACTUAL = Val(Mid(DUM$, 16))
        Print Tab(4); Format$(N, "#0.##");
        Print Tab(10); Format$(B, "#0.##");
        Print Tab(18); Format$(ACTUAL, ".0000000E+00");
        Print Tab(34); Format$(BS(N, B), ".0000000E+00")
    Next I
    Close #1
End Sub