|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
06.11.2018, 16:06
|
#1 |
|
Новичок
Джуниор
Регистрация: 06.11.2018
Сообщений: 3
|
ошибка overflow
люди добрые помогите пожалуйста
'SORT ARRAYS For i = 0 To UBound(arr1) For k = 0 To UBound(arr1) If arr1(i) <> arr1(k) And CInt(arr1(i)) < CInt(arr1(k)) Then tmp1 = arr1(i): arr1(i) = arr1(k): arr1(k) = tmp1 tmp2 = arr2(i): arr2(i) = arr2(k): arr2(k) = tmp2 tmp3 = arr3(i): arr3(i) = arr3(k): arr3(k) = tmp3 End If Next k Next i For i = 0 To UBound(arr1) ошибку здесь выдаёт If arr1(i) <> arr1(k) And CInt(arr1(i)) < CInt(arr1(k)) Then |
|
|
|
06.11.2018, 16:09
|
#2 |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
значит, число в массиве попалось большое (больше 32 тысяч),
а вы делаете в коде преобразование в тип Integer, который не понимает чисел больше 32678 потому и ошибка переполнения замените CInt на CLng |
|
|
|
|
06.11.2018, 16:35
|
#3 |
|
Новичок
Джуниор
Регистрация: 06.11.2018
Сообщений: 3
|
точно, не заметил, благодарствую
|
|
|
|
|
| Опции темы | Поиск в этой теме |
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Ошибка Overflow | Platon33 | Microsoft Office Excel | 5 | 23.12.2011 02:25 |
| Ошибка Stack Overflow | Dumacuk | БД в Delphi | 4 | 22.05.2011 21:29 |
| DelphiX. Странная ошибка - Stack Overflow | Uxas | Общие вопросы Delphi | 7 | 08.06.2010 14:24 |
| Ошибка Stack Overflow | DimOn4Ik | Общие вопросы Delphi | 4 | 02.06.2010 11:18 |
| Чем вызвана ошибка OVERFLOW? | Maxx | Microsoft Office Excel | 8 | 27.08.2009 16:32 |
