d4r5.txt

VB常用数值算法集 内含有解线性代数方程组

Private Sub Command1_ClicK()
    'PROGRAM D4R5
    'Driver for routine BETA
    Open "D:\VB常用数值算法集\DATA\FNCVAL.DAT" For Input As #1
    Do
      Line Input #1, Text$
    Loop While Text$ <> "Beta Function"
    Line Input #1, NVAL$
    NVAL = Val(NVAL$)
    Print Text$
    Print
    Print "    W       Z            Actual          BETA(W,Z)"
    For I = 1 To NVAL
        Line Input #1, DUM$
        W = Val(Mid(DUM$, 1, 6))
        Z = Val(Mid(DUM$, 7, 6))
        Value = Val(Mid(DUM$, 13))
        Print Tab(4); Format$(W, "#0.0");
        Print Tab(12); Format$(Z, "#0.0");
        Print Tab(23); Format$(Value, ".000000E+00");
        Print Tab(40); Format$(BETA(W, Z), ".000000E+00")
    Next I
    Close #1
End Sub