Private Sub Command1_Click()
   Dim i%, j%, n%, k%, m%, a%()
   n = Val(InputBox("请输入数组元素的个数"))
   If n < 2 Then Exit Sub
   ReDim a%(1 To n)
   List1.Clear: List2.Clear
   Randomize
   
   For i = 1 To n
      a(i) = Int(100 * Rnd + 10)
      List1.AddItem Str(a(i)) & "  " & i
      List2.AddItem ""
   Next i
   
   For i = 1 To n
       k = 1
     For j = 1 To n
       If i <> j Then
         If a(i) = a(j) Then m = j: Debug.Print i, j, a(i)
         If a(i) < a(j) Then k = k + 1
       End If
     Next j
     List2.List(k - 1) = i
     If m Then List2.List(k) = m: m = 0
   Next i

End Sub