|
Visual Basic 5.0/6.0 - Общие вопросыВсе примеры / Общие вопросыСортировка методом пузырька
Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:35 | просмотров: 6688 (1+) | комментариев: 0 | рейтинг:
Пример сортировки массивов пузырьковым методом.
![]() ИнструкцииДобавьте на форму два listbox и две кнопки.КодDim B(99) As Integer Private Sub Command1_Click() List1.Clear: List2.Clear Randomize Cls For i = 0 To 99 B(i) = Fix(Rnd * 1000) List1.AddItem B(i) Next i End Sub Private Sub Command2_Click() List2.Clear For i = 0 To 98 For j = i + 1 To 99 If B(j) < B(i) Then a% = B(i): B(i) = B(j): B(j) = a End If Next j Next i For i = 0 To 99 List2.AddItem B(i) Next i End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 116)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|