Двумер массив - вопросик

[kirrun]

Господа, такой впросик.

Предположим есть массив:

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

Dim a(10,10) as Integer

Далее:

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

For Each b In a
   MsgBox b
Next


Вниание, вопрос:
Получается, что b = a(?,0)
Как в цикле for each обратиться к эл-ту a(?,1)?

[kirrun]

Для уточнения код на пхп:

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

<?php
for (i=0; i<10; i++)
   a[] = array("q","w","e");

foreach (a as b){
   print b[0];
   print b[1];
   // etc.
}
?>


[Kovu]

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

For i=0 to 10
            For j=0 to 10
                       debug.Print a(i,j)
            Next j
Next i




[kirrun]

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

For i=0 to 10
            For j=0 to 10
                       debug.Print a(i,j)
            Next j
Next i




Вот спасибо. Я бы не догадался =)))

Хотелось бы именно в For Each...

[alibek]

Хотелось бы именно в For Each...

Хотеть не вредно. Используй коллекции и сможешь использовать For Each.

[GSerg]

Вопрос неясен.

for each перечисляет все элементы массива.

[tyomitch]

Для уточнения код на пхп:

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

<?php
for (i=0; i<10; i++)
   a[] = array("q","w","e");

foreach (a as b){
   print b[0];
   print b[1];
   // etc.
}
?>


Гы.

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

Option Explicit

Sub Main()
Dim a(10) As Variant, i As Integer, b As Variant

For i = 0 To 10
   a(i) = Array("q", "w", "e")
Next

For Each b In a
   Debug.Print b(0)
   Debug.Print b(1)
   ' etc.
Next

End Sub


[kirrun]

а блин.

Все понял. тут нужен был Variant...

Ладно, уже с коллекциями сделал. Всем спасибо.

[kirrun]

Для уточнения код на пхп:

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

<?php
for (i=0; i<10; i++)
   a[] = array("q","w","e");

foreach (a as b){
   print b[0];
   print b[1];
   // etc.
}
?>


Гы.

а что гы? для наглядности

[tyomitch]

"Гы" означало "приведённый тобой код на пхп один в один переводится на VB, поэтому удивительно, что у тебя возникли сложности".