ReDim a(1000) As Long
'а потом в другом месте
ReDim a(500) As Long
MsgBox UBound(a)
Есс-но, до использования нужно обьявить границы массива. Чтоб узнать верхнюю границу используй
- Код: Выделить всё
MsgBox UBound(a)
Redim Preserve a(500) as Long
uhm писал(а):kif, это фигня. При больших размерах массивов (6000 элементов - это очень маленький массив) и большом количестве повторов, речь идет уже о минутах. Попробуй считать какой-нибудь большой видео-файл, прочитывая по одному байту и добавляя в массив, которому каждый раз делаешь Redim Preserve... Готов спорить, что визуальная часть такой программы будет самой быстрой
skord писал(а):Говорят, что с большими массивами Redim Preserve меееедленно работает...
Сейчас этот форум просматривают: Google-бот и гости: 41