d4r13.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 26 行

Private Sub Command1_ClicK()
    'PROGRAM D4R13
    'Driver for routine BETAI BETACF
    Open "D:\VB常用数值算法集\DATA\FNCVAL.DAT" For Input As #1
    Do
      Line Input #1, Text$
    Loop While Text$ <> "Incomplete Beta Function"
    Line Input #1, NVAL$
    NVAL = Val(NVAL$)
    Print Text$
    Print
    Print "     A        B           X       Actual    BETAI(X)"
    For I = 1 To NVAL
        Line Input #1, DUM$
        A = Val(Mid(DUM$, 1, 7))
        B = Val(Mid(DUM$, 8, 7))
        X = Val(Mid(DUM$, 15, 7))
        Value = Val(Mid(DUM$, 22))
        Print Tab(4); Format$(A, "#0.00");
        Print Tab(11); Format$(B, "#0.####00");
        Print Tab(23); Format$(X, "0.000000");
        Print Tab(34); Format$(Value, "0.000000");
        Print Tab(45); Format$(BETAI(A, B, X), "0.000000");
    Next I
    Close #1
End Sub