 Сортировка на Vba, Нужен исходник |
Внимание!
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
  |
| Студентик13 |
 20.03.2006 18:10
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация:  -4   |
Немогу понять как сортировать одномерные массивы методом пузырька. Темболее надо не по возрастанию а по убыванию состировать. Кто какой метод сортировки припомнит пожалуйста покажите. Заранее благодарен.
-------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
   |
 
|
| Романтик |
20.03.2006 19:01
Сообщение
#2
|
 Бывалый Группа: Пользователи Сообщений: 159 Пол: Мужской Реальное имя: Anton Репутация: 0 |
Цитата(Студентик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 меняй на свои параметры и готово. Сообщение отредактировано: Романтик - 20.03.2006 19:02 -------------------- made in USSR.
|
|
|
|
| Студентик13 |
22.03.2006 20:02
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 53 Пол: Мужской Реальное имя: Николай Репутация: -4 |
Пасибо
-------------------- Учение есть учение, а свет есть свет и ненадо обобщать.
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.06.2025 8:39 |