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

				Private Sub Command1_Click()
				    'PROGRAM D3R8
				    'Driver for routine QGAUS
				    X1 = 0#
				    X2 = 5#
				    NVAL = 10
				    DX = (X2 - X1) / NVAL
				    Print
				    Print Tab(5); "0.0to     QGAUS       Expected"
				    For I = 1 To NVAL
				        X = X1 + I * DX
				        Call QGAUS(X1, X, SS)
				        Print Tab(5); Format$(X, "##.#0");
				        Print Tab(14); Format$(SS, "0.######");
				        AAA = -(1# + X) * Exp(-X) + (1# + X1) * Exp(-X1)
				        Print Tab(27); Format$(AAA, "0.######")
				    Next I
				End Sub
				Function FUNC(X)
				    FUNC = X * Exp(-X)
				End Function