|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2011, 20:36 | #1 |
Пользователь
Регистрация: 07.11.2011
Сообщений: 53
|
Visual Basic гляньте ошибку
кто-нибудь понимает в чем здесь беда?:
"Sub sort1(bytA() As Byte, T As TextBox) For bytI = 1 To 5 Call минэлемент(bytA, 1, bytN) For bytK = 1 To 5 bytR = bytA(bytI) bytA(bytI) = bytA(bytN) bytA(bytN) = bytR 'For bytK = 1 To 5 T.Text = T.Text + Str(bytA(bytK)) Next bytK T.Text = T.Text + vbCrLf + vbCrLf Next bytI MsgBox (T.Text), vbInformation + vbOKOnly, "Отсортированный массив" End Sub Sub минэлемент(bytA() As Byte, bytJ As Byte, bytN As Byte) bytmin = bytA(bytJ) bytN = bytJ For bytO = bytJ + 1 To 5 If bytA(bytO) <= bytmin Then bytmin = bytA(bytO) bytN = bytO End If Next bytO End Sub"
А может я слегка обнаглела?...
|
27.12.2011, 20:48 | #2 |
Старожил
Регистрация: 31.05.2010
Сообщений: 13,543
|
По-моему в этом: "минэлемент". VB не понимает кириллицу в названиях функций.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder |
27.12.2011, 20:50 | #3 |
Пользователь
Регистрация: 07.11.2011
Сообщений: 53
|
щас попробую..но он первый элемент находит а потом ахинею какую-то несет(
не,попробовала...не в этом дело((( он просто сортирует фиг пойми как( еще и какие-то левые элементы приписывает.. у меня тупняк ...уже 2 часа голову ломаю..
А может я слегка обнаглела?...
Последний раз редактировалось Яна696; 27.12.2011 в 21:02. |
27.12.2011, 21:15 | #4 |
Пользователь
Регистрация: 07.11.2011
Сообщений: 53
|
всё,разобралась) уже не надо)
А может я слегка обнаглела?...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Visual C++, Visual C#, Visual basic .Net, или Microsoft.Net Что лучше? | _PROGRAMM_ | Общие вопросы .NET | 14 | 10.10.2012 19:24 |
Visual Basic (Visual Studio 2005) | JUDAS | О форуме и сайтах клуба | 1 | 04.07.2009 23:09 |