Dim a(1 To 10) As Integer
Private Sub Command1_Click()
  Form_Load

End Sub

Private Sub Command2_Click()
p = ""
For i = 1 To 9
   For j = i + 1 To 10
    If a(i) < a(j) Then
     t = a(i): a(i) = a(j): a(j) = t
    End If
    Next j
   Next i
   For i = 1 To 10
    p = p & Str(a(i)) & ","
   Next
   label2.Caption = LTrim(Left(p, Len(p) - 1))
    
End Sub

Private Sub Form_Load()
  Dim p As String
  Randomize
  p = ""
  For i = 1 To 10
      Do
       x = Int(Rnd * 91) + 10
       yes = 0
       For j = 1 To i - 1
        If x = a(j) Then yes = 1: Exit For
       Next j
    Loop While yes = 1
    a(i) = x
    p = p & Str(a(i)) & ","
       Next i
       label1.Caption = LTrim(Left(p, Len(p) - 1))
       label2.Caption = ""
End Sub