riordinare array di integer (vb6)

[Jupy64]

ciao, se gli elementi da ordinare non sono molti allora potrebbe andar bene anche una cosa del genere:

Dim Interi(100) As Integer
Dim I As Long
Dim J As Long

Private Sub Ordina()
   Dim tmp As Integer
   For I = 0 To UBound(Interi) - 1
      For J = (I + 1) To UBound(Interi)
         If Interi(I) > Interi(J) Then
            tmp = Interi(J)
            Interi(J) = Interi(I)
            Interi(I) = tmp
         End If
      Next
   Next
End Sub

altrimenti ti conviene passare ad un algoritmo più veloce tipo il bouble sort