d7r1.txt

来自「本书共有数值计算中常用的VisualBasic子过程近200个」· 文本 代码 · 共 31 行

Private Sub Command1_Click()
    'PROGRAM D7R1
    'Driver for routine PIKSRT
    Dim A(100)
    Open "D:\VB常用数值算法集\DATA\TARRAY.DAT" For Input As #2
    For I = 1 To 10
        Line Input #2, DUM$
        For J = 1 To 10
            A(10 * (I - 1) + J) = Val(Mid(DUM$, 6 * J - 5, 6))
        Next J
    Next I
    Close (2)
    'Print Original array
    Print "Original array:"
    For I = 1 To 10
        For J = 1 To 10
            Print Tab(7 * (J - 1) + 2); Format$(A(10 * (I - 1) + J), "###.#0");
        Next J
        Print
    Next I
    'Sort array
    Call PIKSRT(100, A())
    'Print sorted array
    Print "Sorted array:"
    For I = 1 To 10
        For J = 1 To 10
            Print Tab(7 * (J - 1) + 2); Format$(A(10 * (I - 1) + J), "###.#0"); "  ";
        Next J
        Print
    Next I
End Sub