d7r8.txt

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

Private Sub Command1_Click()
    'PROGRAM D7R8
    'Driver for routine RANK
    Dim A(100), B(10), INDX(100), IRANK(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 (5)
    Call INDEXX(100, A(), INDX())
    Call RANK(100, INDX(), IRANK())
    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
    Print "Table of ranks is:"
    For I = 1 To 10
        For J = 1 To 10
          Print Tab(7 * (J - 1) + 2); Format$(IRANK(10 * (I - 1) + J), "#####0");
        Next J
        Print
    Next I
    MSG1$ = "press RETURN to continue..."
    X = MsgBox(MSG1$, 1)
    Print "Array sorted according to rank table:"
    For I = 1 To 10
        For J = 1 To 10
            K = 10 * (I - 1) + J
            For L = 1 To 100
                If IRANK(L) = K Then B(J) = A(L)
            Next L
        Next J
        For J = 1 To 10
            Print Tab(7 * (J - 1) + 2); Format$(B(J), "##.#0"); "  ";
        Next J
        Print
    Next I
End Sub