Сортировка массива по возрастанию нечетных элементов - VB
Формулировка задачи:
Помогите пожалуйста, мне нужно отсортировать одномерный массив так, чтобы сначала стояли упорядоченные по возрастанию нечетные элементы, а сразу после них без изменений остальные элементы, заранее спасибо!
Решение задачи: «Сортировка массива по возрастанию нечетных элементов»
textual
Листинг программы
Private Sub Command1_Click() Dim i As Long Dim j As Long Dim Tmp As Double Dim arr() As Double ReDim arr(List1.ListCount - 1) For i = 0 To List1.ListCount - 1 arr(i) = CInt(List1.List(i)) Next i For j = 0 To List1.ListCount - 2 For i = 0 To List1.ListCount - 2 If (((arr(i) Mod 2 = 0) And (arr(i + 1) Mod 2 <> 0)) Or ((arr(i) Mod 2 <> 0) And (arr(i + 1) Mod 2 <> 0) And (arr(i) > arr(i + 1)))) Then Tmp = arr(i) arr(i) = arr(i + 1) arr(i + 1) = Tmp End If Next i Next j For i = 0 To List1.ListCount - 1 List2.AddItem (CStr(arr(i))) Next i End Sub Private Sub Form_Load() List1.AddItem (65) List1.AddItem (43) List1.AddItem (22) List1.AddItem (45) List1.AddItem (88) List1.AddItem (41) List1.AddItem (11) List1.AddItem (12) List1.AddItem (86) List1.AddItem (33) List1.AddItem (44) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д