Подпрограмма сортировки

Sub Sort(vKey() As String, OrdOut() As Integer)

'Сортировка текстового вектора ключей

'по неубыванию методом выбора.

'Вектор OrdOut содержит индексы исходного вектора ключей,

'соответствующие неубывающему следованию ключей.

' Умаров М.Р., 08.06.12.

Dim p As Integer, q As Integer

Dim LInd As Integer, UpInd As Integer

Dim SortKey() As Integer

Dim B As Integer, r As Integer, S As String

Dim Fp() As Boolean

LInd = 0

UpInd = UBound(vKey)

ReDim SortKey(UpInd)

ReDim Fp(UpInd)

For p = 0 To UpInd

Fp(p) = True

Next p

For p = 0 To UpInd

S = "яяяя" 'Текущий минимум

For q = 0 To UpInd

If Fp(q) Then

r = StrComp(vKey(q), S, vbTextCompare)

If r = -1 Then

S = vKey(q)

B = q

End If

End If

Next q

OrdOut(p) = B

Fp(B) = False

Next p

End Sub

Список литературы

1. Стеценко А. А., «Структуры и алгоритмы данных »

2. Методические указания к практическим занятиям, 2009