d9r6.txt

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

Private Sub Command1_Click()
    'PROGRAM D9R6
    'Driver for routine FPOLY
    NVAL = 15
    DX = 0.1
    NPOLY = 5
    Dim AFUNC(5)
    Print Tab(5); "               Powers of X"
    Print
    Print Tab(5); "X    X^0    X^1    X^2    X^3   X^4"
    For I = 1 To NVAL
        X = I * DX
        Call FPOLY(X, AFUNC(), NPOLY)
        Print Format$(X, "#.#000"),
        For J = 1 To NPOLY
            Print Format$(AFUNC(J), "#.#000"),
        Next J
        Print
    Next I
End Sub