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

				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