Исправить программный код в программе сортировки массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д