сведение двумерного массива к одномерному

[devel]

Господа, вопрос. Есть двумерный массив - таблица a(i,j). Мне нужно получить один его столбец и сформировать однометрный массив b(n). Можно ли это сделать как-нибудь удобно, не прокручивая в цикле все элементы массива a?

[gaidar]

В VB6 никак. Только крутить в цикле ...

[Vi]

Смотря какой столбец!

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

  Dim i As Long, j As Long
  Dim a(2, 4) As Long
  Dim b(2) As Long
  For i = 0 To UBound(a, 1)
    For j = 0 To UBound(a, 2)
      a(i, j) = 10 * i + j
    Next
  Next
 
  For j = 0 To UBound(a, 2)
    CopyMemory b(0), a(0, j), (UBound(a, 1) + 1) * 4 ' 4 - это размер Long-а
  Next