Исправить программный код в программе сортировки массива - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, помогите исправить программный код в программе сортировки массива. Массив создается, а вот сортировка не поймет. Программа в архиве. Мог бы выложить просто программный код, но к сожалению не работает Visual Basic. Помогите, прошу

Решение задачи: «Исправить программный код в программе сортировки массива»

textual
Листинг программы
Public Sub Insertionsort(List() As Integer, min As Integer, max As Integer)
Dim i As Long
Dim j As Long
Dim k As Long
Dim max_sorted As Long
Dim next_num As Long
 
    max_sorted = min - 1
    For i = min To max
        ' This is the number we are inserting.
        next_num = List(i)
        
        ' See where it belongs in the list.
        For j = min To max_sorted
            If List(j) >= next_num Then Exit For
        Next j
        
        ' Bump the bigger sorted numbers down to make
        ' room for the new number.
        For k = max_sorted To j Step -1
            List(k + 1) = List(k)
        Next k
 
        ' Insert the new number.
        List(j) = next_num
        
        ' Increment the count of the sorted items.
        max_sorted = max_sorted + 1
    Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5