Сортировка

Как сделать сортировку, чтобы, когда компьютер сортировал, то первая буква не сортировалась, пример: O1, O2, O3, O11, O12,   компьютер сортирует, как O1, O11, O12, O2. А как сделать, чтобы компьютер сортировал O1, O2, O3, O11?
Подобные вопросы, по чистому бэйсику, где нужно поломать голову над логической задачей и проявить логическое мышление, я просто обожаю!

Мне не понятен способ сортировки, которым пользовался автор вопроса. Я же могу предложить следующий:

1.Поместите где-нибудь процедуру Sort:

'т.к. мы не знаем сколько переметров нужно передать процедуре,
'то на это место устанавливаем массив, и аргументов можно переда-
'ть теперь сколько угодно!
Sub Sort(ParamArray a())

'объявляем три переменные
Dim X As Integer
Dim Y As Integer
Dim P As String

'запускаем первый цикл
    For Y = 0 To UBound(a)
'запускаем второй цикл
        For X = 0 To UBound(a)
'меняем местами значения:
'если переменная второго цикла больше переменнной первого,
'то переменной Р присваеваем значение переменной второго цикла,
'самой переменной присваеваем значение переменной первого цикла,
'а переменной первого цикла присваеваем значение переменной Р
'Места значений поменались!
            If Val(a(X)) > Val(a(Y)) Then
                   P = a(X)
                   a(X) = a(Y)
                   a(Y) = P
             End If

        Next X

    Next Y

'запускаем новый цикл и перечисляем значения в новом порядке!
    For Y = 0 To UBound(a)
        Debug.Print a(Y)
    Next Y

End Sub

Вот и всё! Теперь осталось передать процедуре Sort аргументы:

Sort "011", "02", "012", "03", "01"

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ