Полная версия: Сортировка на Vba
Немогу понять как сортировать одномерные массивы методом пузырька. Темболее надо не по возрастанию а по убыванию состировать. Кто какой метод сортировки припомнит пожалуйста покажите. Заранее благодарен.
Цитата(Студентик13 @ 20.03.2006 18:10) 
Немогу понять как сортировать одномерные массивы методом пузырька. Темболее надо не по возрастанию а по убыванию состировать. Кто какой метод сортировки припомнит пожалуйста покажите. Заранее благодарен.
Код
Private Sub cSortUp_Click() 'сортировка по возрастанию
Dim i, j, tmp As Integer
For i = 0 To 4
For j = (i + 1) To 5
If arr(i) < arr(j) Then
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
End If
Next j
Next i
For i = 0 To 5
Print arr(i)
Next
End Sub
меняй на свои параметры и готово.
Пасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.