Private Sub Form_Load()    Dim a1(1 To 5) As String    Dim b1(1 To 5) As String    Dim b As Boolean    a1(1) = "b"    a1(2) = "c"    a1(3) = "b"    a1(4) = "a"    a1(5) = "c"    n = 5    b = False    For i = 1 To n        For j = 1 To m            If a1(i) = b1(j) Then                b = True                Exit For            End If        Next        If b = False Then            m = m + 1            b1(m) = a1(i)        Else            b = False        End If    Next i        For i = 1 To m        Debug.Print b1(i)    Next iEnd Sub

\'Автор: VB Net (Randy Birch)Public Sub QuickSortNumbers(iArray As Variant, l&, r&)    \'     \'iArray() The iArray to sort    \'     \'l& First element of iArray to start sort    \'     \'r& Last element of iArray to start sort    Dim i&, j&    Dim x    Dim y    i& = l&    j& = r&    x = iArray((l& + r&) / 2)    While (i& <= j&)        While (iArray(i&) < x And i& < r&)               i& = i& + 1        Wend        While (x < iArray(j&) And j& > l&)               j& = j& - 1        Wend        If (i& <= j&) Then            y = iArray(i&)            iArray(i&) = iArray(j&)            iArray(j&) = y            i& = i& + 1            j& = j& - 1        End If    Wend    If (l& < j&) Then QuickSortNumbers iArray, l&, j&    If (i& < r&) Then QuickSortNumbers iArray, i&, r&End Sub