Visual Basic почему ругается

[Яна696]

Sub Sort(bytD() As Byte, bytA() As Byte, bytB() As Byte, k As Byte, m As Byte, n As Byte)
I = l
j = l
k = l
While (I <= m) And (j <= n)
If bytA(I) <= bytB(j) Then
bytD(k) = bytA(I)
I = I + 1
Else
bytD(k) = bytB(j)
j = j + 1
End If
k = k + 1
Wend
While (I <= m)
bytD(k) = bytA(I)
I = I + 1
k = k + 1
Wend
While (j <= n)
bytD(k) = bytB(j)
j = j + 1
k = k + 1
Wend
End Sub



якобы,за пределы диапазона выходит
с учетом, что bytC(1 to 10) as byte
bytA(1 to 5) as byte
bytB(1 to 5) as byte
вот. в упор не понимаю,что он тупит
указывает на:"If bytA(I) <= bytB(j) Then"
я в шоке от этого языка

[Smitt&Wesson]

якобы,за пределы диапазона выходит

Правильно тупит. Индексация массивов начинается с 0 до -1. Писать нужно:

I=0
J=0
While (I < m) And (j < n)

[Яна696]

всё равно ругается(((( теми же самыми словами

[Яна696]

Сообщение от Smitt&Wesson

Правильно тупит. Индексация массивов начинается с 0 до -1. Писать нужно:

I=0
J=0
While (I < m) And (j < n)

неа,
там всё в порядке.
Ошибку нашла, не воспринимал размерности n и m ,указала вместо них 5 и всё работает
Но всё равно спасибо за помощь!