vb disposición de matriz múltiple

Lista1.Borrar Dim?t1(),?t2(),?t3(),?t() t1?=?Array(1,?2,?3 ,?4) t2?=?Array(5,?7,?8,?10 ) t3? =?Array(9,?11,?12,?18,?22,?24,?25) t? ?Array(t1,?t2,?t3) For?+?CStr(i?+?1)?+?"=("

For?j?=?LBound(t(i)) ?A?UBound(t(i)) Si?j?

Label1(i)?=?Label1(i)?+?CStr(t( i)(j))?+?" Else

Label1(i)?+?CStr(t(i)(j))?+?")" End?If

¿Siguiente?jSiguiente?iFor?i?=?LBound(t(0))?To?UBound(t(0)

¿For?j?=?LBound(t(1))?To? UBound(t(1)For?k?=?LBound(t(2))?To?UBound(t(2))

List1.AddItem?CStr(t(0)(i)) ?+?Espacio(1)?+?CStr(t(1)(j))?+?Espacio(1)?+?CStr(t(2)(k)) Siguiente k

Siguiente j Siguiente i Label2.Caption?=?" *** Count"?*** Count"?+?CStr((UBound(t(0))?+?1)?*?(UBound(t( 1)) ?+?1)?*?(UBound(t(2))?+?1))?+?"Tipo"

Fin?