Помогите исправить ошибку в сортировке На Visual Basic, сортировка прямого включения

Без имени, 176 просмотров

Процедура сортировки (в модуле)выдает ошибку "индекс вне диапазона" массив с границами от 1 до 10
Public Sub Сорт(bytA() As Byte, T As TextBox)
'проц сортир-ки
T.Text = ""
For bytK = 2 To 10
x = bytA(bytK)
bytJ = bytK - 1
Do While (bytJ > 0) And (x <= bytA(bytJ + 1))
bytA(bytJ + 1) = bytA(bytJ)
bytJ = bytJ - 1
Loop
bytA(bytJ + 1) = x
Next bytK
For bytO = 1 To 10
T.Text = T.Text + Str(bytA(bytO))
Next bytO
mas = T.Text
End Sub

Примечание:
Спасибо, я сама все сделала!

Ответы:

Удачник

Тебе надо определить эти переменные
Dim bytK As Integer, bytJ As Integer, bytO As Integer, mas As String
И еще, запусти программу кнопкой F8 и пройдись по шагам.
На каждом шаге подводи мышь к разным переменным, особенно к bytJ и bytK.
Контекстом выпадет сообщение с ее значением, там ты увидишь, как оно меняется на каждом цикле и где становится равным 0 или 11.
Так и сообразишь, почему оно таким стало.

Удачник

Дополнение #1
Тогда хотя бы отметь мой ответ, как лучший, все равно тебе больше никто не ответил.
Да, и что там было то?

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.