piksrt.txt

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

Sub PIKSRT(N, ARR())
    For J = 2 To N
        A = ARR(J)
        For I = J - 1 To 1 Step -1
            If ARR(I) <= A Then Exit For
            ARR(I + 1) = ARR(I)
        Next I
        If ARR(I) > A Then I = 0
        ARR(I + 1) = A
    Next J
End Sub