Declarar y inicializar tablas

Artículo por Club Developers 路 09 May 2006

2173 vistas

Nota para los usuarios de VB6:
  • El 胣dice inferior de una tabla es 0 en VB.NET
  • La cifra del par茅ntesis despu茅s de la declaraci贸n representa el 胣dice superior de la tabla
  • El n煤mero de dimensiones de una tabla se fija en la declaraci贸n y no es modificable

Veamos algunos ejemplo:

- Declaraci贸n de una tabla de la que se desconocen las dimensiones



vbnet
  1. Dim tableau As String() 
  2.  
  3. 'asignaci贸n de la memoria para la tabla
  4.  
  5. 'tabla no inicializada de 10 strings. En este caso, cada elemento de la tabla tiene el valor por defecto del tipo. 
  6. 'Para String es "". 
  7. tabla = New String(9} {} 
  8. 'Tabla inicializada de 2 strings 
  9. tabla = New String(1) {"Uno", "Dos"}



- Declaraci贸n de una tabla de una dimensi贸n no inicializada de 10 enteros



vbnet
  1. Dim tabla As Integer() = New Integer(9) {}



- Declaraci贸n de una tabla inicializada de 1 dimensi贸n de 10 enteros



vbnet
  1. Dim tabla As Integer() = new Integer(9) {10, 11, 12, 13, 14, 15, 16, 17, 18, 19} 
  2. 'Para recorrer la tabla 
  3. Dim i As Integer 
  4. For i = 0 to tabla.GetUpperBound(0) 
  5. 聽 Debug.Writeline(tabla(i)) 
  6. Next



- Declaraci贸n de una tabla de 2 dimensiones no inicializada de 3x6 enteros



vbnet
  1. Dim tabla As Integer(,) = new Integer(3, 2) {}



- Declaraci贸n de una tabla de 2 dimensiones inicializado de 3x2 enteros



vbnet
  1. Dim tabla As Integer(,) = New Integer(2, 5) {{0, 1, 2, 3, 4, 5}, {6, 7, 8, 9, 10, 11}, {12, 13, 14, 15, 16, 17}} 
  2. 'recorrer la tabla
  3. Dim j,i As Integer 
  4. For j = 0 To tabla.GetUpperBound(0) 
  5. 聽 For i = 0 To tabla.GetUpperBound(1) 
  6. 聽 聽 Console.WriteLine("({0},{1})={2}", j, i, tabla(j, i)) 
  7. 聽 Next 
  8. Next



- Declaraci贸n de una tabla de tablas



vbnet
  1. 'sin inicializaci贸n 
  2. Dim tabla As Integer()() 
  3. 'asignamos memoria 
  4. tabla = New Integer(1) (){New Integer(2) {0,1,2}, New Integer(1) {0,1}} 
  5. 'con inicializaci贸n 
  6. Dim tabla As Integer()() = {New Integer(2) {0, 1, 2}, New Integer(5) {0, 1, 2, 3, 4, 5}} 
  7. 'Recorrer la tabla
  8. Dim i ,j As Integer 
  9. For j = 0 to tabla.GetUpperBound(0) 
  10. 聽 For i = 0 To tabla(j).GetUpperBound(0) 
  11. 聽 聽 Console.WriteLine("({0},{1})={2}", j, i, tabla(j)(i)) 
  12. 聽 Next 
  13. Next