vb disposición de matriz múltiple
Privado?Sub?Command1_Click()
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?