d7r2.txt

Visual Basic 常用数学算法集书中收录了所有代码

Private Sub Command1_Click()
    'PROGRAM D7R2
    'Driver for routine PIKSR2
    Dim A(100), B(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)
    'Generate B-array
    For I = 1 To 100
        B(I) = I
    Next I
    'Sort A and mix B
    Call PIKSR2(100, A(), B())
    Print "After sorting A and mixing B, array A is:"
    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
    Print "...and array B is:"
    For I = 1 To 10
        For J = 1 To 10
            Print Tab(7 * (J - 1) + 2); Format$(B(10 * (I - 1) + J), "###.#0");
        Next J
        Print
    Next I
    MSG1$ = "press RETURN to continue..."
    X = MsgBox(MSG1$, 1)
    'Sort B and mix A
    Call PIKSR2(100, B(), A())
    Print "After sorted B and mixing A,array A is:"
    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
    Print "...and array B is:"
    For I = 1 To 10
        For J = 1 To 10
            Print Tab(7 * (J - 1) + 2); Format$(B(10 * (I - 1) + J), "###.#0");
        Next J
        Print
    Next I
End Sub