ass.txt

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

Function ASS(N, B)
    Dim A(15)
    A(1) = Exp(-B) / B
    If N = 1 Then GoTo 11
    DB = 1# / B
    For I = 2 To N
        A(I) = A(1) + DB * (I - 1) * A(I - 1)
    Next I
11  ASS = A(N)
End Function