Определение количества одинаковых пар чисел в числовом ряде - VB

Формулировка задачи:

Определение количество одинаковых пар чисел в числовом рядя ?

Решение задачи: «Определение количества одинаковых пар чисел в числовом ряде»

textual
                            Листинг программы 
                        

                            Function mkPairList(X() As Integer) As Integer()
Dim R() As Integer
 
    ReDim R(1 To 20) As Integer
    
    n% = UBound(X, 1)
    p% = 1
    k% = UBound(R, 1)
    
    For i% = 1 To n% - 1
        For j% = i% + 1 To n%
            If X(i%) = X(j%) Then
               If p% + 1 > k% Then
                  k% = k% + 20
                  ReDim Preserve R(1 To k%) As Integer
               End If
               R(p%) = i%
               R(p% + 1) = j%
               p% = p% + 2
            End If
        Next j%
    Next i%
    
    ReDim Preserve R(1 To p% - 1) As Integer
 
    mkPairList = R
 
End Function
 
Sub Test()
 
Dim X(1 To 10) As Integer
Dim Z()        As Integer
 
    X(1) = 1
    X(2) = 2
    X(3) = 11
    X(4) = 12
    X(5) = 3
    X(6) = 12
    X(7) = 12
    X(8) = -1
    X(9) = 3
    X(10) = -1
 
    Z = mkPairList(X)
 
    For i% = 1 To UBound(Z, 1) - 1 Step 2
        Debug.Print Z(i%); ","; Z(i% + 1)
    Next i%
 
End Sub
                        