|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2011, 21:35 | #1 |
Пользователь
Регистрация: 07.11.2011
Сообщений: 53
|
Visual Basic почему ругается
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" я в шоке от этого языка
А может я слегка обнаглела?...
|
27.12.2011, 21:42 | #2 | |
Старожил
Регистрация: 31.05.2010
Сообщений: 13,543
|
Цитата:
Код:
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder |
|
27.12.2011, 22:10 | #3 |
Пользователь
Регистрация: 07.11.2011
Сообщений: 53
|
всё равно ругается(((( теми же самыми словами
А может я слегка обнаглела?...
|
27.12.2011, 22:21 | #4 | |
Пользователь
Регистрация: 07.11.2011
Сообщений: 53
|
Цитата:
там всё в порядке. Ошибку нашла, не воспринимал размерности n и m ,указала вместо них 5 и всё работает Но всё равно спасибо за помощь!
А может я слегка обнаглела?...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Visual Studio ругается. | Ev1L | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 0 | 14.01.2011 15:30 |
Пытаюсь кодом создать элемент - Делфи ругается... почему? | Coder01 | Общие вопросы Delphi | 5 | 24.08.2010 12:57 |
Что тут не так? Ругается почему-то.... | kat297 | Общие вопросы Delphi | 1 | 03.06.2010 04:24 |
Dev C++ компилирует, Visual C++ ругается | Cookson | Visual C++ | 7 | 02.10.2009 10:39 |