Отсортировать по возрастанию элементы массива удовлетворяющие условию - VB
Формулировка задачи:
Отсортировать по возрастанию элементы массива удовлетворяющие условию ai<5 методом выбора.
Решение задачи: «Отсортировать по возрастанию элементы массива удовлетворяющие условию»
textual
Листинг программы
Private Sub Command1_Click() str = "До сортировки: " & Chr(13) 'добавляем вопрос If MsgBox("Ввести массив вручную?", vbOKCancel + vbQuestion, "Application") = vbOK Then 'если нажали "ОК" For i = 0 To 20 a(i) = InputBox("Введите элемент а(" & i & ")") str = str & a(i) & " " Next i Else 'если нажали "Cancel" For i = 0 To 20 a(i) = Fix(Rnd(1) * 100) str = str & a(i) & " " Next i End If str = str & Chr(13) & "После сортировки: " & Chr(13) Call Sort For i = 0 To 20 str = str & a(i) & " " Next i MsgBox str End Sub Sub Sort() Dim j For i = 0 To 98 For j = i + 1 To 99 If a(j) < a(i) Then If a(j) > -10 Then a% = a(i): a(i) = a(j): a(j) = a End If Next j Next i For i = 0 To 99 List2.AddItem B(i) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д