Массив

[NightBlade]

Как объявить массив с неизвестным количеством элементов ?

[EvilCoder]

<DELETE>

[er_admin]

dim massiv() as type

когда узнал количество эементов:
ReDim massiv(10)

потом понял, что их оказывается больше, чем 11, но то, что засунул в массив терять не хочется:
ReDim Preserve massiv(20).

если сделать просто ReDim massiv(20), то что было в массиве исчезнет

[Мухамедзянов Геннадий]

Как сделать так чтобы VB при чтении массива создавал на форме объект Shape. Пример массива такой
y1 y2 y3 y4
x1 0 1 0 0
x2 1 0 0 0
x3 0 0 0 0
x4 0 0 0 0
Это элементы теории графов, и если элементы x1y2 и x2y1 равны 1, то на форме должен появиться объект, причем должен появиться в любом месте формы

[NightBlade]

Я не могу заранее узнать количество элементов, да и позже, т.к. по-любому будет переменная, а как с ней массив сделать - без понятия (требует постоянное выражение)

[NightBlade]

В общем, задача такова: в одну и ту же переменную последовательно вводятся действительные числа. Количество вводимых чисел заранее не известно... Та, та, та - дальше идёт задание, но с ним справлюсь.

[GSerg]

Код: Выделить всё

dim a() as single

redim a(1 to 1)
do
  a(ubound(a))=inputbox(...)
  redim preserve a(1 to ubound(a)+1)
loop until a(ubound(a))=0

if ubound(a)>1 then redim preserve a(ubound(a)-1)