d4r9.txt

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

Private Sub Command1_ClicK()
    'PROGRAM D4R9
    'Driver for routine GCF
    Open "D:\VB常用数值算法集\DATA\FNCVAL.DAT" For Input As #1
    Do
      Line Input #1, Text$
    Loop While Text$ <> "Incomplete Gamma Function"
    Line Input #1, NVAL$
    NVAL = Val(NVAL$)
    Print Text$
    Print
    Print "     A         X        Actual    GCF(A,X)   GAMMLN(A)     GLN"
    For I = 1 To NVAL
        Line Input #1, DUM$
        A = Val(Mid(DUM$, 1, 6))
        X = Val(Mid(DUM$, 7, 16))
        Value = Val(Mid(DUM$, 23))
        If X >= A + 1 Then
            Call GCF(GAMMCF, A, X, GLN)
            Print Tab(4); Format$(A, "#0.00");
            Print Tab(12); Format$(X, "#0.####00");
            Print Tab(24); Format$(1 - Value, "0.000000");
            Print Tab(35); Format$(GAMMCF, "0.000000");
            Print Tab(47); Format$(GAMMLN(A), "##.000000");
            Print Tab(59); Format$(GLN, "##.000000")
        End If
    Next I
    Close #1
End Sub