Алгоритм сортировки «Пузырьком» -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.131.100.60]

Модераторы: SCINER, B.V.

Алгоритм сортировки «Пузырьком»

D[u]fa

Сообщ. #1 , 30.03.04, 17:38

Master

Рейтинг (т): 112

Вот алгоритм так называемого «пузырькового» сортирования

Option Explicit

Dim ard() As String, i As Long

Private Sub BubbleSort(ByVal pstrArray() As String)

Dim plngMaxItem As Long, i As Long

Dim fSwitched As Boolean, strTemp As String

plngMaxItem = UBound(pstrArray)

fSwitched = False

For i = 1 To plngMaxItem - 1

If pstrArray(i) > pstrArray(i + 1) Then

' If pstrArray(i) < pstrArray(i + 1) Then

fSwitched = True

strTemp = pstrArray(i)

pstrArray(i) = pstrArray(i + 1)

pstrArray(i + 1) = strTemp

End If

Loop While fSwitched

End Sub

Private Sub Form_Load()

ReDim ard(6)

ard(1) = "http://aa4"

ard(2) = "http://aa3"

ard(3) = "http://bb2"

ard(4) = "http://aa1"

ard(5) = "http://www.dufa.land.ru"

ard(6) = "http://www.sources.ru"

''''

Call BubbleSort(ard())

For i = 1 To UBound(ard())

Call MsgBox(ard(i), , i)

End Sub

Сообщение отредактировано: SCINER - 17.01.08, 10:49

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0137 ] [ 16 queries used ] [ Generated: 14.05.24, 02:48 GMT ]