d4r3.txt

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

Private Sub Command1_Click()
    'PROGRAM D4R3
    'Driver for routine BICO
    Open "D:\VB常用数值算法集\DATA\FNCVAL.DAT" For Input As #1
    Do
      Line Input #1, Text$
    Loop While Text$ <> "Binomial Coefficients"
    Line Input #1, NVAL$
    NVAL = Val(NVAL$)
    Print Text$
    Print
    Print "   N       K       Actual        BICO(N,K)"
    For I = 1 To NVAL
        Line Input #1, DUM$
        N = Val(Mid(DUM$, 1, 4))
        K = Val(Mid(DUM$, 8, 6))
        BINCO = Val(Mid(DUM$, 16))
        Print Tab(4); Format$(N, "#0");
        Print Tab(12); Format$(K, "#0");
        Print Tab(20); Format$(BINCO, "#######.");
        Print Tab(34); Format$(BICO(N, K), "########.")
    Next I
    Close #1
End Sub