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