d10r2.txt

VB常用数值算法集2

Private Sub Command1_Click()
    'PROGRAM D10R2
    'Driver for routine ZBRAC
    Print
    Print Tab(3); "Bracketing values:         Function values:"
    Print
    Print "    X1        X2       BESSJ0(X1)      BESSJ0(X2)"
    Print Tab(5)
    For I = 1 To 10
        X1 = I
        X2 = X1 + 1
        Call ZBRAC(X1, X2, SUCCES)
        If SUCCES Then
            Print Tab(4); Format$(X1, "##.00");
            Print Tab(14); Format$(X2, "##.00");
            Print Tab(24); Format$(BESSJ0(X1), "0.#####0");
            Print Tab(42); Format$(BESSJ0(X2), "0.#####0")
        End If
    Next I
 End Sub
Function FUN(X)
    FUN = BESSJ0(X)
End Function