d10r1.txt

VB常用数值算法集2

Private Sub Command1_Click()
    'PROGRAM D10R1
    'Driver for routine SCRSHO
    Print Tab(5); "Graph of the Bessel Function J0:"
    Print Tab(5)
    Call SCRSHO(DUM)
End Sub
Function FUNC(X)
    FUNC = BESSJ0(X)
End Function